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ABSTRACT 


A software package was developed for use as a design 
tool in the conceptual design of submarines on the 
Computervision CGP-200X Designer System, а turnkey 
computer aided design hardware and graphics software 
system. The philosophy behind the software package is to 
keep all major design decisions under control of the 
design engineer rather than embedding them within prog- 
ram algorithms. 


Modules are provided for generating three dimensional 
models of the outer envelope and sail, and for the 
interactive design of the pressure hull. This package is 
designed to interface with modules developed separately 
by Patrick Hale which calculate weight estimates, 
Principal characteristics, envelope geometry, resist- 
ance, balance, and the equilibrium polygon. Interactive 
graphics are used extensively. 


The software requires a knowledgeable naval architect as 
the user, but does not require an extensive knowledge of 
computers or computer aided design systems. 
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I. INTRODUCTION 

Computer aided design has become an important tool 
in many industries over the last ten years. The capabil- 
ities of CAD systems, like those of other computer sys- 
tems, are growing at a phenomenal rate. CAD is now beco- 
ming the standard mode of design for major architecture 
firms and the automotive and aerospace industries. 

Computer aided design has been accepted more slowly 
in the area of naval ship design. The comparatively low 
production rates of naval vessels makes the cost effect- 
iveness of CAD a greater question for ship design agen- 
cies. The scale and complexity of naval combatants makes 
the design of a flexible and comprehensive software 
package a formidable task. 

A number of software packages have been implemented 
for conceptual and preliminary design of surface combat- 
ants in both government and private sector design organ- 
izations. The majority of these tend to be batch 
oriented ship synthesis programs with little or no real 
time interactive design capability. 

This lack of interactive graphics capability is due 
to a number of factors. The concern for standardization 


and the lengthy process of government certification and 





procurement create a substantial delay between the ini- 
tial availability and subsequent installation of new 
hardware. Computer aided design, despite its acceptance 
in some major industries, is nevertheless unproven in 
the world of naval architecture. Many design procedures 
used in naval architecture are somewhat subjective and 
difficult to quantify. 

A further impediment to the use of CAD in naval 
architecture has been the tendency of many early soft- 
ware packages to embed many key decisions in program 
algorithms, thus taking the designer out of the decision 
loop. Such software does not allow the designer to 
utilize his TA and expertise and frequently pre- 
cludes trading off design parameters to achieve optimal 
designs. 

In the area of submarine design the above problems 
are more acute. The number of new submarine designs is 
even less than the number of surface combatants. Accu- 
racy is of more importance in submarine design. Where 
feet and tons may be acceptable limits of tolerance ina 
large surface combatant inches and pounds frequently 
determine the limits of accuracy in submarine design. 
This is due to the requirement to achieve a hydrostatic 
balance in both the submerged and surfaced conditions, 


as well as the premium attached to internal volume and 





deck area. 

Submarine designers are fewer in number than their 
surface counterparts, and often have many design rela- 
tionships tied to subjective criteria developed over 
years of experience. Software which does not allow the 
designer to make use of this subjective design flex- 
ibility is not likely to be accepted by the design 
community. 

The software developed in this thesis, titled 
CADSUB (Computer Aided Design of Submarines), accomp- 
lishes a first pass through the submarine design process 
at the conceptual level of design. In conjunction with 
the Ocean Engineer thesis written by Pat Hale, the 
complete package includes modules for the calculation of 
weight estimates, envelope and pressure hull geometry, 
speed and power, basic hydrostatics, weight and moment 
balance, and the determination of the equilibrium 
polygon. 

A primary design philosophy for the software was to 
develop it for use by a competent naval architect who is 
not necessarily an expert in the use of computers. 
Critical design decisions are left to the user rather 
than being embedded in program code. Opportunities are 
provided to override program algorithms where necessary 


to implement the desires of the individual designer. All 





communications between the user and the program utilize 
standard naval architecture terminology, making it 
unnecessary for the user to learn specific computer 
terminology. In addition, if the designer is familiar 
with the operation of the CAD system he may easily exit 
the program at appropriate points and tailor the design 
to provide more detail or alternate geometry апа 
analytical procedures. Interactive graphics are used to 
provide a clear visualization of the design as it 


develops. 





II. USES OF COMPUTER AIDED DESIGN 

The communication of ideas and information is an 
essential element of all engineering endeavors.  Histor- 
ically the primary medium used for communication and 
storage of information has been paper. Paper has the 
advantage of allowing both long term storage and the 
distribution of information to a large number of users 
at a moderate cost. However, information, once committed 
to paper, is sometimes difficult to modify. 

The advent of modern computer aided design 
technology offers the opportunity to improve the design 
process by removing some of the limitations imposed by 
paper. Using a CAD system, a designer may develop, 
analyze, and refine ideas and solutions to engineering 
problems ina fraction of the time required using paper 
and hand calculations. Once a design exists in the form 
of a three dimensional model in a computer data base, it 
may be recalled, displayed, and modified in a manner 
analogous to the way in which documents may be edited by 
a word processor. During the evolution of a design over 
a period of several years with input from numerous 
designers, the use of a CAD system can facilitate 


storage of all information pertaining to a design in a 





central location, ensuring adequate access to this 
information for everyone involved in the design process. 

The term computer aided design has been in exist- 
ence for approximately thirty years. The earliest 
applications of computer aided design were limited to 
two major areas — electronic drafting with computer 
controlled plotting pens and computer programs used to 
process numerical data. Modern CAD systems integrate a 
wide variety of functions including geometric modeling, 
simulation, engineering analysis, testing, interfacing 
directly with the manufacturing process, and automated 
drafting. These capabilities allow manufacturers to 
build solid models of engines, road test automobiles, 
and examine the stability of offshore structures on 
computer screens prior to construction of prototypes or 
models. 

The foundation of computer aided design techniques 
is the computer representation of a part’s size and 
shape, known as the geometric model. The simplest repre- 
sentations of models are wire frame drawings which 
depict the outline of the shape with a simple mesh. With 
improvements in CAD technology it is increasingly more 
common to use the more realistic looking solid modeling 
technique to provide visual representation because it 


more thoroughly specifies each facet of the object being 
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profıled. 

Solid models are handled by CAD systems almost as 
if they were real objects. Models may be inverted, spun, 
or cut. They may be used to calculate physical proper- 
ties such as weight and center of gravity. Now, in a 
matter of a few minutes or hours, it is possible for an 
engineer to ascertain the week spots in a structural 
design or the behavior of a dynamic system. 

Computer aided design has become firmly  entrenched 
as a valuable tool in both the automobile and aerospace 
industries. As a result, the design process in these 
industries has been speeded up significantly. Other 
industries, such as shipbuilding, are now beginning to 


accept computer aided design. 


GEOMETRIC MODELING 

The process of creating a computer based 
representation of a design is the most basic application 
of modern computer aided design. Using the graphics 
capabilities inherent in a CAD system, the design 
engineer creates a three dimensional model of a new 
part. This model may then be rotated or cut in cross- 
section to expose exterior and interior details. Other 
parts which exist in the data base may be called up and 


added to the part being designed. In this manner the 
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interaction and fit between parts and systems may be 
checked and designs modified to allow for interference 


before the manufacturing process begins. 


ANALYSIS OF DESIGNS 

In-service behavior of a model may be predicted 
with finite element analysis. Several developments in 
the last few years have made the use of finite element 
analysis more useful and less time consuming. Automated 
mesh generation is among the most important of these 
developments. 

At one time data for finite element programs were 
written out by hand and then keypunched into a computer 
for batch processing. This resulted in large quantities 
Of numerical printouts which required an experienced 
analyst to evaluate. With the advent of preprocessing 
techniques the operator could interactively construct 
the finite element mesh directly on the CRT screen. 

The latest trend in finite element analysis is 
automatic mesh generation. Using this technique the 
operator divides the part shape into coarse four sided 
areas. Mesh density is then specified and nodes are 
automatically positioned by the computer. Some modeling 
programs exist which use free mesh generating 


techniques, making it possible to create meshes for 


12 





parts with irregular curves, internal cutouts, and 
intricate details. Automatic mesh generation makes it 
possible to conduct analysis of parts using a finer mesh 
than possible with manually generated meshes. Further- 
more, costs are considerably less when automated mesh 
generation is used since labor costs are significantly 
reduced. 

Following creation of the mesh and analysis by a 
finite elements program postprocessing routines are used 
to interpret the results and reduce the need to analyze 
voluminous numerical data. Contour plots may be used to 
indicate lines of constant strain, or color may be used 
to differentiate between different levels of stress. 
Deformed shape plots may be generated to show model 
displacement. 

Finite element techniques are routinely applıed to 
stress analysis problems. They may also be applied to a 
wide range of other problems including fluid mechanics, 


heat flow, acoustics, and electromagnetics. 


SIMULATION 

An application of computer aided design which is 
becoming increasingly more popular is that of simula- 
tion. When used in conjunction with geometric modeling 


and finite element analysis, simulation may be used to 
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preview the dynamıc behavior of a design in service. 

Simulation programs now being introduced permit the 
designer to profile in three dimensions the behavior of 
complex equipment or machinery. A single part may be 
studied as a component of a dynamic system in order to 
assess the loads it is likely to encounter. Finite 
element analysis may then be employed to determine 
stress distribution. 

Design software packages generally include capa- 
bility for simulating simple forms of mechanical 
behavior. These kinematic programs mimic the paths of 
cams, gears, links, and other mechanisms which undergo 
cyclic or Е: movement. A number of turnkey sys- 
tems are capable of animating the motion of simple 
pivoted devices such as hinges, doors, or cranks. 
Programs for simulating more complex mechanisms are 
usually obtained as unbundled software. 

Systems undergoing large displacements may be 
simulated using displacement analysis programs. Those 
systems which have been analyzed by this technique 
include the suspension system of an automobile as it 
makes a turn, nuclear reactor handling mechanisms, the 
movement of control linkages and robots, high-speed 


mechanisms, and construction equipment. [1] 
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BENEFITS OF COMPUTER AIDED DESIGN 

The acquisition, maintenance, and training costs of 
a CAD system constitutes a significant capital 
investment. It must, therefore, provide substantial 
benefits to justify its cost. This is not a simple 
evaluation to make since there is not likely to be a 
reduction in design costs following installation of a 
CAD system. Savings are more often realized in indirect 
ways which are difficult to quantify. 

The principal benefit of computer aided design is 
likely to be in the areas of cost avoidance and risk 
reduction. Computer aided design, because it speeds the 
design process, allows more time to explore design 
alternatives. Several companies which have made sub- 
stantial use of CAD systems have proven that the time 
required to complete individual design tasks may be 
reduced significantly. For example, prior to the 
implementation of CAD, engineers at Pontiac took up to 
six weeks to design a cylinder head combustion chamber 
by manually calculating complex geometric constructions. 
Using CAD, this task may now be completed in three days. 
Since the time to complete an individual design is 
reduced, the time available for design optimization and 


study of alternatives is increased. 
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The ability to model several parts in a design and 
study their interaction with one another and with other 
systems makes it much easier to design around interfer- 
ences. This reduces the amount of rework required during 
production. 

By reducing the time required for individual design 
tasks, providing time to study alternatives, and reduc- 
ing rework, studies show that cost overruns and redesign 


costs may be reduced by as much as 507. [2] 


CHAPTER SUMMARY 

This chapter has briefly outlined the major capa- 
bilities and applications of computer aided design. The 
implementation of CAD has the potential, if properly 
managed, to increase both the productivity and effect- 
iveness of the design process, and thus improve the 
productivity and quality of the manufacturing process. 

Computer aided design must not, however, be viewed 
as a replacement for a qualified designer. The CAD 
system is operated by a human, and the designs generated 
on the CAD system, as with any other computer system, 


are only as good as the data on which they are based. 
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111. DESCRIPTION OF THE COMPUTERVISION CGP-200X DESIGNER 
SYSTEM 

When developing computer aided design software, 
particularly software which relies heavily on graphics, 
access to a CAD system is extremely helpful. The system 
used during the course of this thesis was the Computer- 
vision CGP-200K Designer System. This chapter contains a 
brief description of the Designer System. 

The CGP-200X Designer System is a dedicated CAD 


system consisting of the following major components: 


CGP-200X Graphics Processor 
- Storage Module 


- Instaview Workstation 


CAD Software 
- System Plotters 

The CGP-200X Graphics Processor processes data and 
performs calculations related to the overall operation 
of the CAD graphics system. It consists of a graphics 
processor and a magnetic tape unit. The graphics pro- 
cessor is a high-speed data manipulation and storage 
device which controls all Designer System operations. 
Associated with the graphics processor’s central 


processor unit are two memory boards, each capable of 
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storing either 128K or 512K, 16-bit words. The magnetic 
tape unit stores desıgn information entered into the 
system on magnetic tape so that it may be transferred to 
other systems or maintained as a backup copy. [5] 

The Storage Module, or disk unit, stores design 
information onto a multi-surfaced 300 megabyte disk 
pack. The operating system (05) resides in a protected 
portion of the primary disk. Multiple disk packs may be 
supported, providing additional disk storage space and 
the possibility of ıncreased disk and file access speed. 

Communication between the design engineer and the 
Graphics Processor is achieved with the Instaview Work- 
station. Components making up the Instaview Workstation 
include the following: 

- Graphics display screen 
— Graphics tablet, electronic pen, and menu 


- Alphanumeric keyboard 


Image Control Unit 


Workstation printer 

The graphics display screen allows the user to view 
model geometry and detail drawings as they are being 
constructed. In addition, the screen also displays the 
text of commands used to construct graphic elements. 
This text occupies an area of either four or twenty-four 


lines of eighty columns. 
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Within the graphics area of the display screen 
entry of graphic information is managed by a cursor. It 
is used to locate positions on the screen to be digi- 
tized and to identify existing graphics. For example, if 
a line is to be drawn between two points, the cursor is 
used to locate first one point to be digitized and then 
the other. The cursor may be controlled either with the 
electronic pen and graphics tablet or by direct entry of 
data points with the alphanumeric keyboard. 

The graphics display screen may be either a  mono- 
chrome or color raster scan CRT. The monochrome display 
is a nineteen inch, 1000 line, high-resolution, green 
phosphor CRT. Color graphics are provided on the Insta- 
view C terminal. In addition to the same raster scan 
technology used by the monochrome display, up to sixty- 
four color combinations (seven basic colors and twenty- 
four shades which are definable by layers and views) may 
be used to reduce design time and increase accuracy by 
providing heightened graphics discrimination. [41 

Entry of of graphics information may be  accomp- 
lished in two ways. In the event that exact locations 
are required, the keyboard may be used. The alternative 
is the graphics tablet and electronic pen. [5] 

The graphics tablet has two distinct areas on its 


surface. These are the graphics area, which directly 
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corresponds to the graphics area on the display screen, 
and the menu area, which provides a fast means of en- 
tering graphics commands. The menu area consists of a 
number of small squares, sometimes referred to as 
function keys. Each square on the menu can represent a 
specific command, eliminating the need to type the com- 
mand from the keyboard. A maximum of 512 squares may be 
programed to perform particular functions or a series of 
operations. [dé] | 

The electronic pen is the activating device that 
locates positions or identifies existing graphic enti- 
ties on the screen. Positions located, or digitized, 
generally define construction or coordinate information. 

Like most computer systems, the Designer System is 
equipped with a keyboard for entry of alphanumeric 
information. It contains sixty-seven key positions, 
including upper and lower case, special symbol keys, and 
a numeric pad. The menu and keyboard may be used inter- 
changeably. 

Incorporated into the Instaview terminal is the 
Image Control Unit, or ICU. The ICU has twelve switches 
and eight buttons which perform various functions that 
dramatically affect the image displayed on the graphics 
screen. Functions controlled by the ICU include the 


display characteristics of text information (number of 





lines) and graphics (brightness and darkness quality of 
background and graphics). In addition, the ICU allows 
dynamic manipulation of model geometry, making the con- 
struction and viewing of geometry easier. Dynamics capa- 
bilities provided by the ICU include enlarging or 
decreasing the apparent size of the model (zoom), moving 
the model in any direction of the graphics screen 
(scroll), and rotation of the model on any of the 
several available axes. 

While generating a model or drawing on the Designer 
System, i1t is often desirable to make temporary working 
copies of the work in progress in a hardcopy format. 
This capability is provided by a desktop thermal dot 
matrix printer which serves as both a line printer and 
plotter, producing copies of both text and graphics. 
Once a model design or drawing has been completed high 
quality pen or dot matrix plots may be generated using 
one of several plotting devices. 

Operation of the Computervision Designer System is 
controlled by CADDS 4X software. Within CADDS 4X two 
operational levels exist. These are the Operating System 
(05) level and the Computer-Aided-Design and Drafting 
System (CADDS). 

Operating System level activity is non-graphic in 


nature, and generally concerns the internal management 





of CADDS 4X. Tasks performed at the 05 level include 
creation and manipulation of data files, text files, and 
programs, as well as file transfer operations between 
the system disk and magnetic tape. 

The second operational level, CADDS, is the level 
at which all graphics operations take place. Within this 
level there are two modes of operations model mode and 
draw mode. These two modes exist because of the differ- 
ences in thought processes normally associated with 
design and drafting. Model mode is used to create a 
representation of a real world three-dimensional object. 
When in model mode, the designer is creating an actual 
three Mine onal layout of model geometry. 

When constructing a model, one begins by activating 
a part. Next, a drawing is activated and one or more 
Views are defined to display the model geometry. Using 
different views the designer may observe the model from 
a number of different viewpoints. Any number of drawings 
may be used to portray various aspects of the part. For 
example, one of the products of CADSUB is a drawing 
depicting a submarine outer envelope, pressure hull, and 
sail. By blanking from view various entities it is 
possible to obtain drawings which show only the outer 
envelope or only the pressure hull. 


Drawing mode is used to generate drawing represen- 
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tations of the model by modifying or editing the model’s 
geometry to change its visual appearance. Detail draw- 
ings with dimensions, text, and notes may be developed. 
When the drawing mode is used to edit the visual 
appearance of the model, changes that are made only 
affect the particular view in which the graphic 
modification takes place. This ıs in contrast with the 
model mode where changes made in one view are reflected 
in all views. 

The CADDS 4X graphics was designed to be easy to 
learn and to use. It is am English based language, so 1t 
is not necessary for the operator to have significant 
knowledge of computers. Commands are entered by either 
typing them in on the keyboard or by using the menu. 
Traditional English spelling conventions are used for 
all commands, eliminating the need to learn computer 
commands and making the system easier to learn. 

An extremely useful feature of the Designer System 
is the on-line documentation facility. This documenta- 
tion is available to the operator at any time while in 
the graphics level, and allows the operator to obtain 
information about commands without leaving the worksta- 
tion to consult a manual. A hard copy of this documenta- 
tion may be made using either the workstation printer or 


the system line printer. 
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A series of commands or functions may be executed 
by using execute files. In those instances where a 
combination of computer graphics and non-graphic proces- 
sing are required high level programming languages may 
be used to meet unique needs. 

Several applications packages are available for the 
Designer System. These include Finite Element Modeling, 
Plant Design, Mechanical Design and Drafting, Wiring 
Diagrams, Printed Circuit/Electrical Schematic, Numeri- 
cal Control, and others. Each of these packages enhance 
the utility of the Designer System in specific areas. 

The primary purpose of this thesis is to develop a 
software package which utilizes the interactive graphics 
capabilities of the Computervision system, yet presents 
options and requests information in terms easily under- 
stood by a naval architect. This provides a useful 
design tool which requires only a minimum level of 
knowledge about the system to operate. 

The Computervision Designer System is an extremely 
powerful tool for use in computer aided design and 
engineering. It is fairly easy to learn and become 
proficient with basic operation. However, like all 
computer systems, there is no substitute for experience 
if one expects to fully realize the Designer System’s 


full potential. 
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This description of the Designer System is by no 
means complete. For a more thorough explanation of the 
system the reader is referred to the various  Computer- 
vision manuals which provide detailed information about 


the system. 





IV. CADSUB: THE APPLICATION OF COMPUTER AIDED DESIGN TO 
SUBMARINES 


Before a new technology is universally accepted it 
must first be tested and proven to be useful and approp- 
riate for the purpose for which it is intended. Computer 
aided design is no exception. The widespread acceptance 
of CAD by the automobile and aerospace industries may be 
viewed as an endorsement of its usefulness. It does not 
necessarily follow, however, that CAD is equally useful 
in all industries. In order to make a reasonably intel- 
ligent evaluation of the usefulness of CAD to the early 
stages of submarine design, the major focus of this 
thesis was the development of user interactive software 
which integrates both graphics and numerical  calcula- 
tions. Modules developed in this thesis create and 
display graphic displays of envelope geometry, aid in 
the design of the pressure hull, and demonstrate the 
techniques which тау be used to model appendages. Appen- 
dix I contains a copy of the graphic output produced by 
these modules. Together with modules developed by Hale 
in his thesis "Computer Aided Conceptual Design of Sub- 
marines", these programs constitute a package of 


programs referred to as CADSUB.  CADSUB is intended to 
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serve as a tool to aid in the conceptual design of 
submarınes. 

CADSUB is written im NEWVAR, а macro language 
available on the  Computervision  CGP-200X Desi gner 


System. NEWVAR allows the coupling of graphics commands 


with mathematical calculations in an execute file. This 
makes it possible to create a program which processes 
data and executes graphics commands for the user without 
requiring him to have an extensive knowledge of the 
graphics system. From the programming point of view, 
program development is simplified because graphics com- 
mands are similar to those used when manually manipula- 
ting graphics. It is not necessary to have the extensive 
knowledge of the internal workings of the computer. 
Unfortunately, this convenience is not obtained 
without a price. NEWVAR’s major disadvantage is its 
slowness, particularly when displaying text on the gra- 
phics screen. The handling of data files is complicated 
by the fact that all values written to or read from data 
files must be in the form of text variables. NEWVAR has 
no format statements, making it difficult to write 
organized output files. VARPRO2 is a newer Computer- 
vision macro language having some improved data transfer 
and formating features. It is not, however, subject to 


compilation before execution, and 15 thus significantly 
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Slower than NEWVAR. 
The modules developed for this thesis are contained 

in four NEWVAR programs. They are: 

MIT.FORMC 

MIT.ENV 

MIT.PHULL 

MIT.SAIL1 
With the exception of MIT.FORMC each of these modules is 
designed to use data from either from direct interaction 
with the user or from pass files created in previously 
executed modules. Listings for each module are found in 
Appendix II. Simplified flowcharts of each module are in 
Appendix III. A description of data files created by 
CADSUB 15 included in Appendix IV, and layer  descrip- 


tions are in Appendix V. 


A. THE DRAWING FORM 

The module MIT.FORMC is the only module not 
normally executed by CADSUB. It is used for the one time 
generation of a standard format drawing, or Form Part. 
This is a standard feature of the Computervision 
Designer System which allows creation of a standard 
drawing which may be used in any number of different 
designs. 


А standard C size (17"x22") drawing format was 
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selected for the construction of this Form Part. The 
actual size of a hard copy plot may be scaled at the 
time the plot is made. 

In addition to doing such mundane tasks as drawing 


a border and tıtle block, three areas for the display of 


information are defined on the formatted drawing. The 
largest area is a table providing detailed pressure hull 
segment information in a spreadsheet format. Data dis- 
played includes an identifying number for the segment, 
the forward and aftermost points of the segment, 
diameters at these locations, volume, and the location 
of the segments center of buoyancy. A maximum number of 
twenty pressure hull segments is allowed, and data for 
all twenty are displayed simultaneously. 

The Pressure Hull Design Summary displays informa- 
tion concerning the pressure hull, which is created in 
the pressure hull module. Volume Required is the total 
volume of the pressure hull. This does not include 
volume reserved for air flasks,  appendages, or other 
everbuoyant items. Volume Used is the volume occupied by 
pressure hull segments which make up the pressure hull 
at any given time. The Volume Remaining is simply the 
difference between the required volume and the volume 
used. The center of buoyancy of the entire pressure hull 


is also displayed. 
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The principle characteristics of the submarine are 
displayed in the third data display. Characteristics 
shown include length overall, diameter, the extents of 
the parallel midbody, submerged displacement and center 


of buoyancy, and the envelope displacement. 


B. ENVELOPE GEOMETRY 

A graphic display of the envelope geometry is 
created in the module MIT.ENV. Execution of this module 
is largely automatic, and requires the user only to 
specify the type of terminal (color or monochromatic) 
being used. The only reason for this interaction is the 
strange and inconsistent effects observed when using 
color commands on a monochrome terminal. 

Following specification of terminal type the 
program obtains offsets and principal dimensions’ from 
pass files created in earlier modules. To make full use 
of the available screen area an appropriate scale factor 
for the drawing is then selected based upon the overall 
length of the design. Lengths may range up to 888 feet. 
Since the CGP-200X requires an origin to be specified 
for each view shown in a drawing, the location of the 
Origin is also calculated using the overall length and 


scale factor. This allows the centering of the envelope 
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graphics on the drawing. 

When constructing а geometric model on the  CGF- 
200X, опе must first activate a part and a drawing. The 
drawing used is the Form Part generated by the module 
MIT.FORMC. Using the layering features of the CGP-200X, 
the areas of the drawing used to display pressure hull 
data are blanked, or removed from view. Next, three 
views of the model are defined. These are top, left, and 
a standard isometric view. If desired, any of these 
views may by manually manipulated by the user using the 
dynamics capability of the Designer System to provide a 
view of the model from any perspective. The top view is 
not used in CADSUB in its present form, and is blanked 
invisible immediately after its creation. It is provided 
to facilitate arrangement and deck layout. The left view 
provides a profile of the submarine?s port side. 

A scale is next drawn to provide orientation to the 
user. Two scales, one horizontal and one vertical are 
drawn and labeled. The locations of the aft most point 
of the forebody and forward most point of the afterbody 
are indicated with two markers. This entire process is 
Somewhat time consuming and could be eliminated alto- 
gether if a single, fixed scale were used. However, 
clutter is reduced and the overall appearance of the 


drawing is improved by using a scale which matches the 
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design. 

As explained by Hale, a total of 132 unequally 
spaced offsets are used to properly portray hull curva- 
ture and transition at section junctions. [7] These 
offsets are now plotted and used to fit a Bezier spline 
curve which forms the envelope profile. This two 
dimensional envelope outline is then rotated about the 
submarine’s centerline to form a surface of revolution. 
A mesh pattern is superimposed on the surface to aid in 
visualization of the resulting three dimensional form. 

The submarine’s principal characteristics are next 
displayed on the drawing, and program execution passes 


to the next module where the pressure hull is designed. 


C. PRESSURE HULL DESIGN 

The most complex graphics module now in CADSUB is 
MIT.PHULL. Information entered interactively by the user 
is processed to generate both numerical and graphical 
data on the CRT display. 

As in the previous module, the first step taken is 
to obtain data from pass files. This data includes the 
diameter, overall length, length of the forebody and 
afterbody, and the fullness coefficients which define 
the forebody and afterbody. 


The first information required from the user is the 
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amount of the A weight to be reserved for everbuoyant 
items such as air flasks. appendages, and structure 
which are not included in the pressure hull. Following a 
prompt which displays the A weight. the user inputs the 
number of tons he wishes to reserve. The required 
pressure hull volume is then determined by reducing the 
A weight by the amount to be reserved converting weight 
to volume. 

Next, the isometric view of the outer envelope is 
blanked and the layers containing the pressure hull 
design summary and detailed pressure hull segment infor- 
mation are activated. The pressure hull design summary 
is then initialized by displaying the required and 
reserved volumes. 

The pressure hull is made up of one or more seg- 
ments, each having fairly simple geometry.[8] The de- 
sired shape is selected from a menu. Shapes currently 
allowed by CADSUB include the following: 

Right circular cylinder 

Conical Transition 

Flat plate end closure 

Spherical end closure 

Elliptical end closure 

Spherical sonar dome with end closure 


The user also has the option of requesting the diameter 
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of the outer envelope at any location aft of the forward 
perpendicular or changing an existing segment with the 


edit function. 


D. PRESSURE HULL SEGMENTS 

Once the shape of the pressure hull segment is 
selected the user is prompted for information which 
specifies that shape’s geometry. In most cases this 
consists of the location of the forward and aftmost 
points of the segment and diameters at these points. All 
information provided by the user is stored in arrays so 
that it is readily available if needed. 

CADSUB uses this information to generate graphics 
in a two step process. First a two dimensional profile 
of the segment is drawn, then rotated about the center- 
line to form a surface of revolution. A mesh pattern is 
added to aid visualization. 

For simple segments such as cylinders, cones, and 
flat plate closures this is a line. Spherical segments a 
formed by rotating a circular arc about the centerline. 
The graphics command used to draw elliptical segments 
requires four points. These are two endpoints, one at 
the outer end of each axis, a point on the ellipse, and 
the intersection of tangents perpendicular to the axes. 


These locations are calculated by the program and do not 





require any additional input from the user. 

Following construction of graphics the ғ” апа 
center of buoyancy of each segment is calculated analy- 
tically. This information, together with the locations 
and diameters of the ends of the segment are displayed 


on the drawing as detailed segment information. The 
total volume used, volume remaining, and center of buoy- 
ancy of the entire pressure hull are also updated. 

When a spherical end closure is selected the user 
has the option of directly entering endpoints and dia- 
meters or selecting an automatic closure. The automatic 
closure option requires a specification of a volume to 
be enclosed by the segment as well as the location and 
diameter of the base. It then calculates the radius 
endpoints of the segment. 

A spherical sonar dome may be specified with three 
inputs. These are the sphere diameter, diameter of the 
access trunk leading to the sonar sphere, and the center 
of the sphere. Once specified, points defining the 
sphere in the format required to generate graphics are 
calculated, the volume and center of gravity of the 
sphere (without the small volume occupied by the access 
trunk) are calculated, and the appropriate values are 
displayed on the drawing. The user is then informed of 


the location of the aft most point on the sonar sphere 
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and prompted for the location of the aft most point of 
the access trunk. A right circular cylinder is used to 


construct the access trunk. 


E. CHANGING THE PRESSURE HULL 

As construction of the pressure hull progresses it 
may become apparent that it is unacceptable that it 
simply will not balance properly. It is also possible 
that the user may input an incorrect value and find 
himself looking at a pressure hull segment which is not 
what he wanted. Both of these situations may be cor- 
rected using the pressure hull editor routine. 

When requested, the editor requests the segment.to 
be deleted. All graphics and numerical data relating to 
this segment are then erased from the screen. Volume 
used, volume remaining, and pressure hull center of 
buoyancy are all changed to reflect this deletion. 

The user is next presented with a menu similar to 
the one used to select pressure hull segments. Should 
the user desire to generate a new segment, he selects 
the form of the segment and follows prompts as if 
entering a new segment. Data pertaining to the new 
segment is displayed in the same location as for the 
segment which was deleted. Following generation of the 


new segment the user is returned to the main menu. It is 
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not necessary to insert a new segment following deletion 


of another. 


F. WHAT*S THE DIAMETER НЕКЕ? 


The scale generated in the previous module is 


designed only to give a general idea of location within 
the envelope. Even with the high quality graphics gener- 
ated on a Computervision color monitor it is difficult 
to estimate the diameter of the envelope using only the 
drawing scale. 

It is possible to obtain the diameter of the 
envelope at any location from the main menu. This 
function prompts the user for the location at which the 
diameter is desired. Using the fullness coefficients and 
lengths of the forebody and afterbody the diameter at 
that location is calculated. The diameter is then dis- 
played on the CRT and, after a brief pause so that 1t 
may be read, the main menu is once again displayed. 

Should the user not check the diameter and try to 
enter a segment larger than the envelope an error 
message will be displayed. The program will then prompt 


for new inputs for a segment of the same shape. 


6. LEAVING THE PRESSURE HULL 


Assuming a pressure hull is finally completed which 





has a chance of balancing, the user may select the 
option to leave this module. He is then asked if a hard 
copy plot of the drawing is desired, and preparations 
are made to exit the module. 

Prior to entering the next module all data con- 
cerning the pressure hull is saved. This data includes 
all information displayed in the pressure hull summary 
as well as all detailed segment information. 

H. APPENDAGES 

Construction of appendages is not now fully imple- 
mented in CADSUB. The module MIT.SAIL1 was developed to 
demonstrate the techniques which may be used to generate 
a graphic display of appendages. 

As in previous modules, pass files are used to 
obtain information describing the forebody and after- 
body. In addition a pass file is used to obtain offsets 
which define the sail. The user is prompted for the 
location of the forward edge of the sail. Construction 
of the sail begins by determining several points along 
the curve of intersection between the sail and outer 
envelope. Knowing the location of the sail it 15 pos- 
sible to determine the diameter of the envelope at any 
point along the length of the sail. Then, using the 
equation describing defining that circle, the exact 


point of intersection may be determined. The points of 





intersection are plotted and connected using a three 
dimensional Bezier spline curve. This process is done 
twice, once for the port side and once for the starboard 
sıde. 


The upper edge of the sail is drawn by plotting 


offsets at a constant height above the outer envelope. 
Again, the points are connected with a Bezier spline 
curve. The upper and lower boundaries of the sail аге 
connected using a ruled surface. 

Upon completion of the sail, the user is once again 
asked if a hard copy plot of the graphic display if 
desired. Prior to leaving the module the user is also 
asked if he desires to proceed directly to the balance 
module (see Hale). If so, the meshes on all three dimen- 
sional graphics entities are reduced to a two dimen- 
sional form. This is done to enhance the readability of 
text data generated by the balance module within the 


pressure hull. 
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V. EVALUATION OF CADSUB 
A. GENERAL COMMENTS 

Software developed for this thesis represents a 
first attempt to incorporate interactive computer аға- 
phics into the conceptual design of submarines. The 
resulting product is not, by any stretch of the imagina- 
tıon, a product which may be marketed as a complete 
submarine design product. It does, however, demonstrate 
the utility of linking interactive user control, 
numerical analysis, and three dimensional graphics into 
a single powerful design tool. 

The interactive nature of the program allows the 
user to control all important design decisions. 
Throughout the development of the software it was 
assumed that any potential user would have a well 
founded knowledge of the principles of naval architec- 
ture and submarine design. It is not the purpose of the 
software to replace the designer, only to provide a tcol 
which aids in the design process. 

It is the coupling of real time graphic displays 
and numerical analysis which establish the credibility 
and worth of the computer aided design approach of the 
software. The many hours required to perform manual 


calculations and drafting may be reduced significantly 
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by using computer generated graphics. In addition, a 
user having even a rudimentary knowledge of the Compu- 
tervision system can use that ability to go far beyond 


the capabilities of the software as it now exists. 


B. PROPOSED ENHANCEMENTS TO CADSUB 

As mentioned previously CADSUB is not now in what 
could be considered a complete form. While it has a 
number of desirable features and capabilities, it also 
has a number of shortcomings and additional features 
which should be implemented. Many of these are minor and 
require only a little work to overcome. Others will 
require a major effort to implement. These areas are 


outlined below. 


1. PROGRAM SPEED AND THE USER INTERFACE 

When evaluating the effectiveness of computer 
software, particularly software which relies heavily on 
user interaction, the interface between the user and the 
program is just as important as what calculations the 
programs performs or what graphics it generates. Much 
work remains to be done in this area. 

One of CADSUB’s major defficiencies at this point 
is the time it requires to complete certain tasks. The 
most glaring examples involve the insertion of 


alphanumeric information into a drawing. The creation 
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and labeling of scales and the updating of pressure hull 
information appear to be almost fascinating the first 
time they are viewed by the user. However, computers 
have the unique ability to slow the apparent passage of 
time, so that after observing such tasks a couple of 
times they become only slightly more interesting than 
watching grass grow. The best solution to this part- 
icular . problem seems to be translatıon of the software 
into a faster language such as Fortran-S. 

Improvements can most likely be made in prompts 
provided to the user for data and decisions. Currently 
all prompts are provided by printing a menu or a state- 
ment on the CRT and waiting for a response to - typed 
on the keyboard. Computervision designed the CGP-200X as 
a user friendly system and incorporated a variety of 
user input devices. Two of these which should be 
evaluated for inclusion in CADSUB are keyfiles and 
dynamic menuing. 

Keyfiles utilize the digitizer tablet to replace 
many of the functions of the keyboard. Using keyfiles it 
is possible to program an area of the digitizer tablet 
to perform a particular command, and thus eliminate the 
need to use the keyboard. For example, to select a 
cylindrical pressure hull segment the user now selects 


an option from a menu by entering a number on the key- 





board. Using keyfiles and the digitizer tablet it would 
be possible to select the same segment by digitizing an 
area having a symbolic cylinder drawn on it. 

Dynamic menuing is the process of selecting 


instructions which are displayed as keywords on the CRT 


screen. As with keyfiles, decisions are entered using 
the digitizer tablet. 

The use of keyfiles or dynamic menus may or may not 
enhance the utility of CADSUB. They are, however, 


alternatives which should be investigated. 


2. ERROR HANDLING 

The only significant error handling routine 
currently included in the graphics modules of CADSUB is 
one which verifies that the diameters of pressure hull 
segments are less than the outer envelope diameter at 
each end of the segment. Should one select a menu option 
which is not specified (i.e. option 7 when only 1-7 are 
allowed) will simply return program execution m the 
menu for another response. 

It is possible to crash the program in a number of 
ways. For example, entering letters in response to a 
prompt for numerical information has a catastrophic 
effect and causes the system to exit the program. A 
quirk of the Computervision system is that it has con- 


siderable difficulty in inserting negative values in a 
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drawing as text. Thıs problem has been resolved for 
those areas in which one might expect to find a negative 
value appear. Should a negative value be encountered 
which must be displayed elsewhere the results could be 


disappointing. 


3. PROGRAM FLOW 

Unless the user is knowledgeable about the  Compu- 
tervision operating system he is locked into the 
sequence modules are executed by the software. In any 
case, it is not possible to make changes to a pressure 
hull design after it has been created and the pressure 
hull module has been left for the balance module. The 
ability to re-enter individual modules should be imple- 
mented to make it less time consuming to make iterations 
on a design. In the case of the pressure hull this 
simply requires an option to activate a previously 
created design and obtain data from pass files concer- 
ning the pressure hull. This data is already stored when 


the pressure hull module is completed. 


C. FEATURES TO BE IMPLEMENTED 
The number of features which may be added to the 
software developed in this thesis is limited only by 


one's imagination. Development of CADSUB has barely 





scratched the surface in an area ripe for research and 


development. 


1. STRUCTURAL DESIGN 

No structural design capabilities are now included 
in CADSUB. This represents a major area in which consid- 
erable work may be done, and also offers an opportunity 
to evaluate the desirability of using finite element 
analysis in an interactive graphics environment.  Com- 
putervision supports automatic mesh generation as well 


as several methods of graphically displaying results. 


2. ARRANGEMENTS 

One of the most useful applications of computer 
aided design is likely to be in the development of 
arrangements. Using solid modeling techniques three 
dimensional models may be created and maintained 
throughout the design process. 

Development of arrangements should begin with 
creation of decks. This may be done by either explicitly 
calculating the lines of intersection of the proposed 
deck with the pressure hull or by using graphics com- 
mands to insert a plane at a specific location.  Exper- 
imentation is required to select the most efficient 
method. 


Implementation of the capability to zoom in on а 
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specific area of the design and expand it to use the 
entire area of the CRT is highly desirable. Along with 
this capability is the requirement for a dynamic display 
of location to provide orientatıon to the user. The 
scale created by CADSUB when drawing the outer envelope 
is fixed in place and not suitable for this purpose. 

The use of three dimensional solid modeling would 
be of considerable use in developing three digit weight 
reports. Each piece of equipment included in the design 
may be represented by a model stored in a library of 
parts. Each solid model has a volume, weight, and center 
Of gravity associated with it. This data may be 
extracted when the model is inserted in the design. 
Thus, the accuracy of the total weight is dependent on 
the accuracy of data contained in the library and its 
completeness. Creation of a library of equipment for use 
in arrangements is not likely to be a trivial task. 

The use of three dimensional modeling may also have 
a significant impact on reducing interference problems. 
Automatic interference checking routines would allow the 
resolution of interferences in the computer model long 


before actual construction begins. 


3. DESIGNS USING NON-CIRCULAR CROSS SECTIONS 
This thesis has dealt only with submarine designs 


having circular cross sections. Pressure hull segments 


46 





include only those having a simple shape for which 
volumes and centers of gravity are easıly calculated. 

Pressure hull segments which follow the contour or 
the outer envelope may be easily implemented by adding 
the appropriate data input prompts to the pressure hull 
module. A routine to calculate volume and center of 
buoyancy using numerical integration is also required. 
The routine to calculate the envelope diameter at any 
location already exists and may be used to obtain points 
for integration as well as inclusion in graphics 
commands. 

The design of a submarine not having a circular 
cross section may be implemented using techniques 
slightly different from those now used for designs 
having a circular cross section. 

Envelope geometry of designs having a circular 
cross section are constructed by obtaining offsets, 
plotting them to obtain a two dimensional representation 
of the envelope, then rotating the outline about the 
centerline to obtain a surface of revolution. ТО con- 
Struct a model of a non-circular design it is first 
necessary to plot not individual offsets but a series of 
cross sections. These cross sections may the be  con- 
nected using standard graphics commands to generate a 


three dimensional Bezier spline surface. Pressure hull 
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segments having non-cırcular cross sections may be 


generated in a similar manner. 


D. CONCLUSIONS 

Computer aided design using both graphics and 
interactive programming has the potential, if properly 
managed, to improve the design process by allowing time 
to examine more alternatives in greater detail. The 
software developed for this thesis uses only a small 
fraction of the capability available on a modern CAD 
system. In fact, much of what is now done in CADSUB can 
easily be implemented on any one of several microcompu- 
ters. However, the potential uses and benefits of com- 
puter aided design far exceed those of microcomputers. 

The application of CAD technology to the ship 
design process is just beginning and offers considerable 
potential. As with all new technology it must be pro- 
perly managed. CAD should be viewed as a tool to aid the 
designer in making decisions. It should not be seen as a 
means to either shorten the design process or to reduce 
the manpower required to develop a design, but rather as 


a means to improve the design process. 
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APPENDIX 1 


SAMPLE OUTPUT FROM GRAPHICS MODULES 
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APPENDIX II 


PROGRAM LISTINGS FOR GRAPHICS MODULES 
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Jd t<egz============================== 
15!<# SET UP INFORMATION TABLES 
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lof INSERT LINE? XI4Y2,X14Y8&. /5<Сн> 
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29! <и------------------------------ 
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IG! PRNT 

IQ! PRNT 
201! PRNT 
21! PRNT OBTAINING OFFSETS FROM DATA FILE... 
22!0PENR 1."HMIT. POINTS" 
23!<*U> 
24! «Mh tee e defe de U ER e fe e de d e a a a a a 
25!<# READ OFFSETS 
26! €gpt iride dd fe dde dde edd e f d d e e de d d dd 
ЛАНЫ 
26!REPEAT 
29! —READF 1,4 TXT 
30! X(I1)=8 TXT 
31! READE 1,4 TXT 
32! Y(I[)=8 TXT 

33!  IsI*1 

34!UNTIL (1.E0.133) 
39! «M iiti dece dci cd de ed d de fe de d i e k. k a ае 
36!<# HEAD PRINCIPAL DIMENSIONS 
37 5! «tek e e c e e e d e e d d d d e d n 
39! ОРЕМН 2,"MIT.PASSPHI 
39 !READF 2,4DIAM 
40! READF 2.4LOA 
41 ' HEADF 2,XLF 
42! HEADF 2,.ALLA 
43! READF 2,.4LCBSB 

44! НЕАОЕ 2,405МУВ 

45! READF 2,&DENV 

46!D I AMz&DIAM 

4 (1LOA=ALOA 

4d! LFzALF 

A9! LLAzALLA 

50 ! LCBSUB =X LCBSB 

51 !'DSUBZA&USUB 

521 DENV23ADENV 

S3! LAzLOA-LLA 

541 &LAsSLA 

55! 0PENR. 3,"MIT.PASSPH2"* 

SO! READF 3,&ANGHT 
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———— = «әш» 





S/1READF З, МАМЕ 


58! «wv ‚шр ты шы a sess m s ÜA пи; Ер “ыр ШЕ GED GND COND зыр тыр «қ лыс ы сш mp < 
bQi<# ROUND OFF VALUES 


61 !DIAMSAINTCCOODIAM*t.O05)*10)/10 
62!4D1AM=0 1 AM 
63!LOAZCAINTCCLOA*,05)*10))/710 

64! &«LOAZLOA 

65! LF=(AINT((LF+.05)*10))/10 

60! 4LF=LF 

6/!'LA=(AINT((LA+.05)*10))/10 

08! £LA=LA 

6918 LCus3=LCBSU3 

702 D5UB=(A INT ((DS9UYB+.U5SI)*10))/1U 
/118DSUB=DSUB 
72!1DENVS(AINT(CCDENV*,052*10))712 

(31 &DENV zDENV 

14! <и зазаъ eoe cc c e c e c eer e e e e e tk êx 
751<% SET UP CSIZE DRAWING 

I Be 
471 2512Е 

21 <и------------------------------------- -- 
I9! «s» SELECT SCALE FACTOR 

UO! <g >... nn 2 — oo nenn nn — 
8/1! 1F (LOA. LE. 148) SCL=3 

82! 1F (LOA.GT.148.AND.LOA.LE. 185) SCL=10 

3! IF CLOA.GT. 135. AND. LOA.LE. 222) SCL312 

U4! IF (LOA.GCT. 222. AND. LOA.LE.296) SCL=16 

85! IF (LOA.GT. 296. AND.LOA,.LE. 3/0) SCL220 

dó! IF (LOA.GT.370.AND,LOA,.LE. 440) SCLz24 

3/! IF (LOA.GT. 440. AND. LOA, LE. 592) SCL232 

dd! IF (1.0A.GT.992.AN).LOA.LE. 7/40) SCL=40 

89! 1F (LOA.GT. /40) SCL 248 
ne nn nen nn == 

91!<# DETERMINE LOCATION OF ORIGIN 

CPIE ----- -------------------------- 

93! XORGz1I, 75*(18. 5-LOA/ZSCL) 72 

941Y0RHG312. 25 

Q5! <#—---- Ñ... == 

Q6! «t ACTIVATE DRAWING 


9B! ACTIVATE PART MIT-.SUBDHA MUNITS FT 

Q9! ACTIVATI: DRAWING FORMAT FORM MIT.SUB.FORMAT DRAW FORMC 
IOU! SELECT LOISCHIMINATION WHITE LAYEH O «CH» 
IOI! IF (&TYPE. EQ. "C") DISCRIMINATE LAYER 
IOQ2!SELECT LNISCRIMINATION YEILLOW LAYER 1,5 «CH» 
103! 1F (ATYPE.EQ.*C*) DISCRIMINATE LAYER 
104 1 SELECT LDISCRIMINATION KEN LAYER 2 <CR> 

10У! ІР (АТҮРЕ. ЕО. "Сч ) DISCRIMINATE LAYER 

106! SELECT MONE DRAW 

107! ECHO LAYER EXCLUDE 200 

109!ECHO LAYER EXCLUDE 205 

9! SELECT LAYER 0 


{11!<# DEFINE VIEWS 


113!DEF VIEW TOP CPL TOP SCALE 1 IN TO {SCL) FT TILT 9082 X[XORGIYIYORG]<*" 
1141,X1Y8.5,X21Yl0<CR> 

I15!3LANK VIEW NAME “TOP? 

llotDEF VIEW LEFT CPL LEFT SCALE I IN TO (SCL) ЕТ: XEXORGIYEYORGI<« 


5,7 





o= — а а а — سے س ا سے کے‎ ee ~- - — — w —  — ee ee m 


1171.Х1Ү3.5.Х21Ү10<Сн> 

IIS!DEF VIEW ISO CPL ISO SCALE I IN TO [SCL+/] FTs X11Y6.9«* 
119! .X1Y1 641 3YU<CR> 

I20!SEL CeL LEFT 

1211<%------------------------------- 

122!<# DRAW SCALE 

1231 <#----- ------------------------ -- 

124! IF (DEC. EQ. t) GOTO ENV 


125! re Ñ 


126!<# GENEHATE SCALE 


12 7 ee 


128! *SCALE 
130! «* INITIALIZE VARIABLES 
i31! «4----—---------2--.--.--2---------— -- 


132! SCRAD=D1 AM/ (SCL*2) 
133! YSC3 11 .8 -SCRAD 
1341 SCLOA =LOA/SCL 

135! INC=10/SCL 

130! Y INC=YSC+. 125 


133!<* DRAW HORIZONTAL SCALE LINE 

139! <# e — 

|40! INSERT LINE: X(XO4G1)YCYSC).XCEXORHG*SCLOA1Y( YSC] 
141! DISC ENT CLEAR REI) 


|421<4------------------------------- 
143!<4 DRAW SCALE MARKINGS 
|441<%------------------------------- : 
145! XINCSXOHG 

146! REPEAT 


147! ІМ5 ІІМ: ХІХІМСІТІТІМСІ «ХІХІМСІҮСҮ5СІ 
148! XINCzXINC*1NC 

1491 XDIFZXINC-XORG 

150!UNTIL (XDIF.GT.SCLOA) 
1511<”4------------------------------- 
152!«4 LABEL SCALE 

1531 «4 ---———————————---——————————- — 

1541! ILBLs1O 

1 55! XINCzXOHG 

156! XOFFz.1 

157! YLBL=YSC-. 2 

153! INS TEXT "FP" HGT.125: X(XO08G-.1251YCYLBL ) «CR» 
1591<Ұ------------------------------- 
160!<* DETERMINE LABEL ІМСЧЕМЕМТ 
1611<Я%------------------------------- 

162! IF (SCL.LT.24) GOTO OHLBL 

163! #LBL2 

104! ILBL=2U 

1651! INCz2*1NC 

166!GOTO DRLBL 

I6 ( GDRLBL 

1l ó8! XINCSXINC* INC 

1l ó9! LBLILBL 

170!8LBL=ILBL 

| /1 T HEPEAT 

1721 IF (LBL.GE.100) XOFF=. 130 

173! XLBL=xINC-X0FF 

1741  1NS TEXT (4LBL] HGT.12513 X(XLBLIY(YLBL)«CH» 
175!  LBLsLBL*ILBL 

1/6! &LBL=LYL 
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17/1. XINCSXINC*INC - 
178! XDIF=X INC-XORG 
1/9 UNTIL. (XDI F.GT.SCLOA) 


180! <4---------------------------- — 
181!<%* DRAW ENTRANCE AND RUN MARKERS 
ld2!«4---------------------------- = 
183! SCLF=LF/SCL 


134 1 SCLA=LA/SCL 

135! XLF2XORGtSCLE 

136! XLAzXORG*SCLA 

Id2/* [N3kERT LINEs XLXLEJYULYSCI,XÉXLEFJYUYSC*. 18/51, XL XLP-. 375] «CH» 
183! INSERT LINES XLXLAIJY(YSCI],.XEXLA1YLYSC* 18/5], XEXLA*.3751 «CH» 
NOU M a mmm == 

190! <# DRAW VERTICAL SCALE 

191 ! <# ------ 22-22 22 222 2 2 2 2 > — 
192!XVSC=XOKG-.575 

193! INSEQT LINE=* X(XVSCIY[YORG=SCRAD ]., X[ XVSCI]IY [YORG+SCHAD] <CR> 
194:<%---------------------------- — 

195! <# DRAW SCALE MARKINGS 

ML Queen > == 

197 YINC=YORG 

1950! INC=5/SCL 

I Q9 ! REPEAT 

200!  INSEHT LINE: X(XVSCIYIYINCI].IX.125«Cu» 

2901! YINC=YINC+INC 

202 UNTIL (YINC.GT.YORG+SCRAD) 

203! YINC=YORG 

204! REPEAT 

205!  INSE"T LINE: X(XVSCI)YCYINCI].IX.125 «CH» 

206! YINC=YINC-INC 

20 /! UNTIL (YINC.Li . YORG -SCHAD) 

293! <г2---------------------------- == 

209! <# LABEL VERTICAL SCALE 

EM LER e --:---------------- = 

211! XLBL=XVSC-.0/5 

2121 YINCZYOHO-.0625 

2131 INC=10/SCL 

214! INSERITI TEXT "CL" HGT.125 RJT2 X[(XLBL]Y(YINC]<CH> 
215! ILBL=10 

216! IF(SCL.LT. 24) GOTO DRVLB 

217! 1LBL=2U 

218! INCz2*1NC 

219! *DRVLB 

221)! YLBL=Y [NC+ INC 

221 'LBLSILBL 

222!&LHLsLBL 

223! REPEA 1 

224! INSEHT TEXT (&LBL) HGT.125 HJT* XE XLBL)Y(YLBL) «CR» 
225! YLBL=YLBL+INC 

226! LBL=LBL+ILBL 

22/1 8LBL=LBL 

228!UNTIL (YLBL.GT.YORG*SCHAD) 

229 1 YLBLsY INC-INC 

230 !LKl_=ILBL 

23114 LBL=I[LBL 

232! REPEAT | 
233! INSERT TEXT [&LBL) HGT.125 RJT: X( XLBLIYLYLBL]) «CH» 
234!  YLaLsYLBL- INC 

2351  LBLsLBL*ILBL 

2361 &LBL=LBL 
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23 /! UNTIL (YLBL.LT. YORG-SCHAD-.0625) 

233! <к-------------------------------- — 

239!<4 DRAW ENVELOPE 

Q40! «9 ——————————— mcm = 

241! #ENV 

242!SLLECT MODE MODEL 

243!SELECT LAYER 1 

244! INS LÎN: XOYO. X[ LOA] YU 

245! [I=1 

240!TG=! 

24 /16&TG=[G 

248! INSbERT BSPLINE INTR TAGsS(STOC)t«£ 

249! &NEXI. XEXCIO)YCYCIJ2). «* 

250! [=]+1] 

251! IF (I.LE.132) GOTO NEXT 

252! «CH» 

2593! INSEHT SHEV HIANG 300 MESH 8X8: TAG ([&TGO):s XOYO, XCLOA)YO«CH» 
EMI n e e eremum > 

255!<# DISPLAY PRINCIPAL CHARACTERISTICS 

256 ! <8 mm nm ann man namen nn nn nn À = 

297!SELECT MODE ЮНАН 

259!SELECT LAYER O 

259! INSERT TEXT (4NAMEJ HCT.253 X14,5Y1<CH> 

260!SELECT LAYER 199 

261! INSERT TEXT [(«LOAJ HGT.1875 HIT? X20.25Y5.25<CH> 
262! INSERT TEXT [&DIAA) HCT.189/5 RIT3 X20.25Y4,93/5«CH» 
263! INSERT TEXT (&LF)} HG[.1375 RJT"* Х20.25Ү4.625<СН> 
204! INSERT TEXT (4LA) НСТ. 1875 КЕЈТ: X20. 25Y4.3125<Ch> 
265! I[NSERT TEXT (4LCBSB) HGT.1875 HITs X20.25Y4<CR> 
206! INLERY ТЕХТ (40508) НОТ. 18/5 НЈТІ X20.25Y3.6875«CH» 
26 /1 INSERT TEXT (4DENV) HGT.18/5 RJT: X20,25Y3.3 /5«CH» 
260!«^U» 

2^9 ! &FNID 

2/0! RUN NEW MIT.PHUI.L 

21V! END 
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MIT.&4BCD.PHULL 
5-15-54 1.2:2/83/ FUTIL 0,2! 


| 5 «€ A. oede dece їйї» її» її її 9 X 


2!«4 MIT.PHULL 

3 8 « M dese t kk k k kk kk kk k k k KK e e de e de e e e e e K KW KK Y K K ا کک‎ 
4! <# 

5!<* USED TO GENERATE PRESSURE HULL GEOMETRY 
6! <4 “DRAWS 3D REPRESENTATIGN OF HULL FORM 
Ich -CALCULATES AND DISPLAYS PARAMETERS 
d! <# 

Q) ! FRR RRR RAAT e ee e e kk kk kk kk Kk d e k K Ñ WÑ 
IO!DIM AFT(20) „FnD(20) „PDA (20) .PDF(20) .LEN(20) ¿VOL(20),XCB(20) 
IL IDIM ТРЕ(20) | 
121P1=3. 14159265 

| 3! « Mise de desee sodes deest dede de dede de de dede dee 

14! <# OBTAIN DATA FROM PASS FILES 

PDL CH eee eRe k k w kt r t kr fr f EK EK 

161 0PENR. I1,"MIT. PASSPHI" 

ІТІНЕАВЕ 1.«ТҮРЕ 

ІБ! )ГАҸ=&ТҮРЕ 

IG! HEADF 1 .&ТҮРЕ 
20!LOASATYPE 
21! READF | .STYPE 
e2!LF=&TYPE 
23! REAUF І.«ГҮРЕ 
24!LA=&TYPE 
25! HEADF 1,8TYPE 


26! READF 
2/1! HEADF 
28! HEADF 


l eð TYPE 
I, ATYPE 
| eå TYPE 


29 1NF=&TYPE 


30! READF 


l! eð TYPE 


3l 'NAs&TYPE 

32! 0PENR 2,"MIT. PASSPH2" 

33!KEADF 2,28TYPE 

34! ANGHT=3 TYPE 

35! HAD=DIAM/2 

30!EXECV 

37! PRNT 

38! PRNT 

39! PRNT 

40 !&8TYPE=ANGHT 

4t!PRNT AWE IGHT=(4TYPE) 

42! AWGHT=(AINT (( AWGHT?.U5) #10)) 710 
43! HEAD (NUMBER OF TONS OF AWEIGHT TO BE RESERVED 15 --> ) «ТҮРЕ 
44! HESzATYPE 

45! TWGAT ZAWGHT -HES 

46! [VOL TWGHY *35 

47! RESsHES* 35 

48! AHESZRES 

— ت نے کچ کے کک کک کک کک کک کک م ت ت ——-# e‏ !49 
UPDATE SUMMARY‏ *« !50 
--- --------------------------%<511 
>0^< 521 

53!SELECT MODE DRAW 

54! BLANK VIEW МАМЕ 71507 

.55! ECHO LAYER INCLUDE 200 
SO!SELECT LAYER 200 


ol 





57128 TVOL=[VOL 
59! INSERT TEXT (TVOLJ] HGT.18/5 RJT3 


60! INSERT TEXT [TVOL] HGT.18/5 RJT: 
61! INSERT TEXT (НЕУ5Ј НСТ. 1875 HJTt 


EUN CN Eo Om — 
04!<# SELECT LAYER ANI) TAG 

65! «4 — ——-———<———— m~ — 
60 SELECT MODE MODEL 

6 /! SELECT CPL LEFT 

OS!SELECT LAYER 2 «CH» 

69! «^U» 

I0! TG311 

71! #SEG 

I2!ERHI=U 

73'ЕНН2=0 

1418 TG=TG 

751 ITG=TG=-10 

Го! <# www de de de fe de cde de cde de e e de hehe e de de e de e e dede de a 
7Tı<# MAIN MENU 

VA nn re 
(9! EXECV 

80 ! 4MENUI 

OP! PHNT 


B2!IPRNI SELECT FORM OF PRESSURE HULL SEGMENT 
2-CONICAL SEGMENT 


d3'!PHNT I-CYLINDER 


X20. 25Y8«CH» 

59! INSERT TEXT "O0" HGT.1875 HJT:! X2U.25Y7.08/5<CH> 
X20.25Y /.3/5«CH» 

X20.25Y7.0725«CH» 

02! INSERT TEXT "O0" HGT.18/5 HJT* X20.,25Y6. /5«CH» 


3-FLAT PLATF CLOSURE 


84!PRNT 4-SPHERICAL CLOSUBE S-ELLIPTICAL CLOSURE 6-SONAH AND ACCESS 


85!READ (C7-OB5TAIN DIAMETER E-EDIT 
86! IF (&TYPE.EQ."1") GOSUB CYLIN 
Ul!IF (4TYPE. EC, "2") GOSUB CONE 

BS! IF (&TYPE.EQ."3") GOSUB PLATE 
399! IF (XTYPE. EQ. "4") GOSUB SPHI 
QUITF (4TYPE.EQ."5") GOSUB ELLIP 
УТЕ (ATYPE.EQ. "6") GOSUB SONAR 
92!IF (4TYPE.EQ. " /^) GOSUB GETH 
93!IF (4ATYPE. EQ. "X") GOSUB'STP 

94! IF (TYPE, EQ, "E") GOSUJ8. EDIT 

95! <# Š 
Y6!1F (RTYPE. EQ, "/*") GOTO MENUS 
9/11F (А ГҮРЕ. ЕО. "Не ) GOTO SEG! 
93!TPE(1TG)=8 TYPE 

Q9! GOSU3 UPDATE 

100! «SEG! 

101: TG=TG+1 

102!60Т0 SEG 

103! 45TP 

104!:GOfO END 

LOS! CMe wee RRR RARA A RE e e d e e e e e d eer 
1061«» SPHEHICAL SEGMENT OF ONE BASE 
107) < dde de de dede de de de de dede dede tete tete dede dede tete dede dede de 
105! ЖӘРНІ 

1O9 EPRNT 

1108 PRNT 

Ltt! PRNT SPHERICAL ENDCLOSURE 

112 PRNT CHOOSE METHOD OF INPUT: 


X-LEAVE -->) «ТҮРЕ 


113!НЕАО (CI- INPUT ENDPOINTS 2-CALCULATE ENDPOLNTS FROM VOLUME—> ) &TYPE 


114! IF (&TYPE. EQ. "2*) GOTO CALPT 
115! IF (ATYPE.NE."1"*) GOTO SPHI 
I1 ó1 EXECV 


Se 








шш — -‏ ص 


\17!=5Р1 | 
116!PHNT INPUT ENDPOINTS 


MO! READ (FORWARD MOST POINT OF SEGMENT IS ==> ) КЕМІ) 
120! READ (AFT MOST POINT OF SEGMENT IS -—2 ) &AFT 
121! READ (DIAMETER OF FORWARD MOST POINT 1S—> ) APDF 
122!HEAD (DIAMETER OF AFT MOST POINT IS -—» ) &PDA 


| 23! FND( ITG) 4FWD 

124! AFTCITO) S&AFT 

125! PDFCITO) 4PDF 

125! PDACITG)2&PDA 

I2 !LENCITG? ZAFTCITO) -FWDCITG) 

128! GOSUB CHECK 

129! IF (ERHI.EQ.1.0H. ERR2.EQ. 1) GOTO SPI 
130!1G0SU3 SPSET 

131!GOTO SPDRA 


132! < nn nn nn nn nn nn nn -- 
133!<# CALCULATE POINTS FROM GIVEN VOLUME 
134! <%--------------------------------- -- 
(35! «CALPT 

1 36! EXECV 


13/! PANT CALCULATE ENDPOINTS FROM VOLUME 

138! HEAD (REQUIRED VOLUME OF SEGMENT IS —> ) &VOL 
139!HEAD (LOCATION OF SEGMENT BASE 15 —> ) &LOC 
140! READ (DIAMETER OF SEGMENT BASE IS -—» ) &PDF 
141: VOLUHE=4VOL 

142! LOC=ALOC 

143! <g ———— ----2---.-2-2-2-------- == 

144! < DETERMINE ORIENTATION 

145! <#------ - 222-2 2 2 2 7 2. e -- 

146! IF (LOC.LT. (LOAZ2)) PDECITO)20 

147! IF CLOC.LT.OLOAZ72)) PDACITO) S&PDF 

148! IF (LOC.GT1.((LOAZ/2)0) ОСА (ІТО) =0 

149! IF (LOC.GT.LOAZ/2)0) PDFCITO)zZA4PDF 


151! «* CALCULATE LENGTH OF SEGMENT 
1 52 ! <# Il LRL p 


153! IF (PDF(ITG).E0.0) R=PDA(ITG)/2 

154! IF (PDA(ITG).E0.0) H=PDF(ITG)/2 

| 55! Ag3*(H** 2) 

156! Be65*VOLUME/ZPI 

157! SQRsSQRT (CB*x2)/4*(A**3)/21) 

158! AAZCB/2*SQR) **(1/73) | 
159!BA2B/2-SQk . 

160! IF (BA.LÍ.O) BCzs-BA 

101! IF (BA.LT. 0) BR=-(BCrr(1/3)) 

1621 IF (BA.GT.O) BBsBA**(1/3) 

163! LENCITG) ZAA*BB 

1641IF (PDFCITG).EQ0.0) FWOCITG)ZLOC-LEN CITG) 
165! LF (PDF(ITG).E0.0) AFT(ITG)=LOC 

1660! IF (PDACITG).EQ.O) FWDCITO) sLOC 

1671! IF (CPDACITG).EQ.O) AFTCOITOG)sLOC*LEN(CITO) 
168!GQOSUB CHECK 

I69Y: IF CERRI.EQ.I1.OR.ERR2.EO.2) GOTO CALPF 
170!GOSUB SPSET 

1/11GO0TO SPDRA 


{72!<е———-----—------------——--—--—_———— 
1/31<we ORAS SECAENT 

Da nn ee ee en nn -- 
1 151 #SPURA 

1 /61<70> 
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| 7/!INSERT ARC TAG=[(&TG): X(X1)Y(Y1],X—”X2]YO,X[—”X11Y(-YI1<CR> 
1/3! INSERT SREV HIANG=18U MESH XD * TAG(&TGI$ XOYO, XL LOAJYO«CR» 
| /91 «^U» 

PANES mn eee see esesoo== — 

Istt<#CALCULATE PROPERTICS 

A = = = 

183! SRHADZ(PD**2)/CO*LENCITG)) *LENCITG)72 

IgA! VOLCITG)SCLENCITOG) **52) *PI* (G*SHAD-LEN(ITG0)0/3 

I8 5!CHs5HAli-, /5*((2*8SHAD-LENCITO)) »«*2)/(3* 3RHAD-LEN(CITGO)) 
I8ó! IF (POFCITG).EQ.0) XCBCITG)=FWOCITG) +CB 

ЗЛЕ (CPDACITG).EQ.O) XCBCCITG)SAFTCITO) -CB 


184! RTNSUB 
l = = = = = = Zu = = = = = = = == == — 
I90!«s SET UP COORDINATES FOR PLOTTING 
1911<4-------------------------------- 
192! "SPSET 


193! IF (POFCIIG).EQ.0) FDZPDA(CITO) 

194! IF (PDFC(ITG).E0.0) XI1=AFT(ITOG) 

195! IF CPDFCITG)EQ.O) X2sFWDCLITO) 

I96! IF (PDFCITG),EQ.O) YIzPDACITG)/7/2 

197! IF (PDACITG).EQ.O) FDSPDFCITO) 

I93! IF CPDACITG).EQ.0) XIi=FWD( ITG) 

199! IF (PDACITG).EQ.O) X2=AFTCITG) 

200! IF (PDACITG).EQ.0) YI2-POF(CITOG)Z72 

301 !* RI NSUB 

LUD CH a a a a a 

203!<# CONICAL SEGMENT 

2041! <# .0xwx wtrk Tr kr fr fr t f k fr fr fr k Y K fr k k Tr fr fr h fr 

205! * CONE 

200!PHNT 

20 /! PRNT 

2US!PRNT CONICAL SEGMENT 

209! REAL (FORWARD MOST POINT OF SEGMENT IS ==> ) &FWD 
210! READ (AFF MOST POINT OF SEGMENT 15 --> ) &AFT 
211 ' HEAD (DIAMETER AT FORWARD) MOST POINT IS—> ) &PDF 
212!HEAD (DIAMETER AT AFÍ MO3T POINT IS --> ) 8PDA 
213! ЕЯО(1Т06) з«ЕЙГ3 

214! AFT(1Tu)=8AFT 

215!PDF( ITO) s&PDF 

216! PDACITO)SA&PDA 

2V /! LENCITG) sSAFTCITG) -FWOCITO) 

218! GOSUB CHECK 

219! IF CERRI.EQ. 13.ORH, ERH2, EQ. 1) GOTO CONE 


2211<* DilArr CONICAL SEGMENT 
a MR ne 


2231 X1=FWD(1TG) 

224! X2zAFT(CITO) 

225! YI 3PDF(OITG)/2 

226! Y2zPDACITG)/2 

2211<”*U> 

228! INSERT LINE TAG=(&8TG]: X(X1]Y(Y1),X(X2]Y(Y2)<CR> 

229! [INSERT SREV HIANG2360 MESH oXu + TAGITG)3XOYO.,X[LOAJYO<CH> 
2301 «^U» 


2311<%---------------------------- = 
2321<# CALCULATE CONICAL PROPERTIES 
pu E ——————-——————— 


234 1VOL(ITG)=LENCITG)*+PI*(PIF(ITO) *r2+PDA (1TG) ** 2+PDF( 1TG) *PDA(1TG6))/12 
23391 1F (PDA(ITG).LT.POFCITS)) GOTO CONB 
236! D1=2DA (1TG) 
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2371!D2zPDFCITO) 

233! GO[0O CONC 

239! *CONB 

2401D1zPDFCITO) 

241 102zPDACITGO) 

2921 CONC 

243! CBzLENCITG)*€DI **v2*2*DI*D2*3*XD2 **«2)/ (CDI **2*D01I*»D2*02**2) 4) 
244! IF (PDACITO).CT.PDECITG)) XCBCITG) ZAFTCITO) -CB 
245! IF (PDFCOLÍG).GE.PDACITGO) XC3CITG) SFWDCITG)«CB 
240!n[ N3JUDB 

24 Í! < # zw w k k w k Y k W k Ñ fe k r kr fr Ye fr r Yr r fr fr hr Ye Y Y i Sr 

243!<w* CYLINDHICAI. SEGMENT 

249! SCHERER a a ne 

250! sSCYLIN 

22V ! PHNT 

252! PHNT 

253!1PRNT CYLINDRICAL SEGMENT 

254! READ (FORWARD MOST POINT OF SEGCMENT 1S ==> ) &FWD 
255!READ (AFT MOST POINT OF THIS SEGMENT IS—> ) &AFT 
256!HEAD (DIAMETER OF CYLINDY ICAL SEGMENT [S—> ) «РПА 
25711 FAN(ITG)=X EV 

258! AFTCITG) 4AFT 

259 !PDFCITG)sA4PDA 

200! PDACITO) PDFCITO) 

261 ! LENCITG) SAFTCITG) -FWOCITG) 

202!50SUB CHECK 

263! 1F (ERRI.EQ.1.OR.ERR2.E0.1) GOTO CYLIN 
2641<4---------------------------- = 

265!«s DRAW CYLINDER 

Zu ي ي‎ er un — 

2607! #0RCYL 

263!<*U> 

209! INS LIN TAGsÍ&TG): X(FWD(CITG) JYLPDFCITG)/2]«* 

2/0! .XCAFTCITO) JYCLPDACITO)/2] «CR» 

271! INSERT SREV HIANG 360 MESH 8ХІ6 * TAG(&TO) $3XOYU. XL LOA) YO«CH» 
2121<*U> 

213! < -----------------.----------—— 

214!<# CALCULATE FROPERTIES 

ES ----– – mmm e e e o o n 

2 16! VOL(ITO) =LEN( ITG)*PI*(PDFCITO) **r2)/4 

2/11 XC8(1TG) =FWD(ITG)+LEN(1TG)/2 

29! RTNSUB > 

2 [9 ! <# w 5 w k k Y k Y T fe Tr W f Te Tr Ye r Yr W We Y Yr e Tr fr fr a a a Te 

2u0!<# ELLIPTICAL ENN CLOSURE 

DI CT RARA AAA 

2821 *ELLIP 

2343! PRNT 

284 ! PRNT 

2u5!PHRNT ELLIPTICAL END CLOSURE 


236!'READ (FORNARD MOST POINT OF SEGMENT IS —> ) XFWD 
287! READ (AFT MOST POINT OF SEGMENT IS --> ) &AFT 
2839! READ (DIAMETER OF FORWARD MOST POINT IS—> ) &PDF 
289! READ (DIAMETER OF AFT MOST POINT IS --> ) &PDA 


2901 FEND( ITG) =2 PND 

29 | T AFTCITGO)zAAFT 

292!PDF(CITG) 2&PDF 

293! PDACITG) 4 PDA 

2941LENCITG) »AFTCITG)-FWDCITG) 

295! 60SUB CHECK 

296! IF (ERHI.EQ. T. OR. ERH2. EQ. 1) GOTO ELLIP 
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—— a = ست‎ - — --- 





- — — — — —  — — NN NN NNUU ARR 


29/!<и------------------------------ 

298!<c# SET UP POINTS FOR PLOTTING 

POE 6-6-2 

300! IF (POFCITG).E0.0) XI=FWw)(ITG) 

301! IF (PDFCITG).EQ.O) X2sFWDCITO) 

392!IF (PDFCITG).EQ.0) Y2=PIACITG) Z2 

303! IF (PDFCITG).EQ23.0) ХЗтАЕТ(1Т0) 

304! IF (PDACITO).EQ.0) XISAFTCITO) 

305! IF (PDACITG),EQ,O) X2sAFTK(ITO) 

306! IF CPDACIIG).EQ.O) Y2sPbDFCITO)/2 

30/! IF (PDACITG).EQ.0) X3=FWD(ITG) 

393!Ү3-Ү2 

309 t X4zCXI e X3) 7? 

3IO0! IF CPDFCITG).EQ.O) XXsX4-XI 

ЗТ IF CPDACITO).EQ.O) XX=X1-X4 

312! YaAsSAaRTC(OY2**2) C1 - CXX **2)/ CLENCITO) **2)2)) 
Be ج س يى ييي‎ == 

314!<* DRAN ELLIPTICAL END CLOSURE 

AS a => 

316! <^0> 

31/% INSERT CONIC TAG=[3TG]3 X[XI1JIYO,X[X21Y[Y2J),X[X3IY[Y3],X[X4J]Y[Y4]<CH> 
3138! INSERT SREV HIANG=300 MESH=8Xu8 3 TAG[2TG]$XOYU¿X[ LOA JYU<CR> 
319! <^0> 

e me == 

321!<# CALCULATE ELLIPTICAL PROPERTIES 

3221 <# ==> 27-7 222-2 222 7 nn nn -- 

EM ID d ТОИ кезу аяа 
324!Cb2.3/5*LENCITO) 

325!IF CPOPFCITO).EQ.O) XC8 C ITG) s AFTCITO) -Cb 
3260! IF (PDACITG),EQ.O0) XCBCITG)SFNDCITG) *CO 

32 4 KTNSUB . 

32t ! T R 2 151 3531115351 5553155355 335 S 

329!«s FLAT PLATE CLOSURE 

3301! € d fete fe tete te ee e fece fe fece efe de fede tf її 

331! *PLATE 

332! PRNT 

333! PRNT 

334!PHNI FLAT PLATE END CLOSURE 

3359!HEAD (LOCATION OF FLAT PLATE CLOSURE IS --» ) &FwWID 
3361HEAD (DIAMETER OF FLA! PLATE CLOSURE 15 —> ) APDF 
33 7/1 FAD(ITG) =XENI) 

339! AFT( 1 S)=&FW!) 

339 ! POFCITO) s&PDF 

340! PDA ( ITG) =& PDF 

34)1'LENCITG)=0 

342! VOL ( ITG) =) 

343!XCBCITO) s4FWD 

344!GOSUB CHECK 

34511F (ERRI.EQ.1.08.ERR2.EQ. 1) GOTO PLATE 


M ce E 
34 (1 «€ DRAW FLAT PLATE END CLOSURE 
A  - 2 


349! XI 4FWDCITO) 

3501 Y2xPDF(CITO)/72 

3511!«^u» 

3521 INSERT LINE TAGs(4[G)* XEXI1JYO,XICXI1)YU(Y2)]) «CH» 

393! INSERT SREV HIANG#300 MESH &8X&3 TAGITG] 9$ XOYO, XLLOA)YO«CH» 
3541«^U» 

355 ! HTNSUB 


350 1 «M ftfefcsededede fedet fede ie dee defe deed defe fe defe її її 
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35 /t<# SONAR DOME ROUTINE 

3548! €W kde dede eee 
399 ! 4S0ONAR 

360! PRN[ 

301 'PRNT 

362! PHNT 

363!PRNT SONAR SPHERE 

364!HEAD (DIAMETER OF SONAR SPHERE ==> ) &SDIAM 
365! READ (DIAMETER OF ACCESS TRUNK ==> ) АРПА 
Jó6!READ (CENTER OF SONAR SPHERE ==> ) &CEN 
36 /!SOIAM=4SD1 AM 

3689 ! DI RNK=4PDA 

369 !CEN=ACEN 

3/0! SHADZSDIAM/2 

311! SD. 5*SQRT (SDIAM** 2-DTRNK **2) 

3/2! SHZ3RAD-SD 


3/3! XLzCEN 
3/5!«* SET UP POINTS AND PLOT 


3/1! XI ZCEN*SD 

3 lo! X2CEN-SRAD 

3/9! YI Z DTHNK/2 

3uU! FuDCITO)2X2 

Jul 'AFTCITO)zXI 

332! PDF ( ITG) =0 

3833! PDA( [ TG) =&4 PDA 

384! LENCITG) zAFTCITG) -FWDCITO) 

335!<*U> 

30! INSERT ARC TAG=[8TG]8 XE[XIIY[Y1I,X[X2IYO,X[X1]Y[-Y1]<CR> 
33 /! INSERT SREV HIANG=130 MESHoX3 * TAG[aTG)]3 XOYO, X[ LOA JYO<CR> 
3339! <”U> 

399!<"---------------------------- -- 

390! «*» CALCULATE PROPERTIES 

CO ew nw ww ew ee ee ee == 

392! VSPH=4x*P]r(SRAN*+*r3)/3 

39 3! VSEG=(P1/3)*(SHtr2) + ( 3*SRAI)=SH) 

394! VOLCITG)VSPH-VSEC 

395! CBHSEGsSCEN*., /5* ((2*SHAD-LENCITG)) *12) / CG*SRAD-LENCITGO)) 
396! XCBCITG) zCVSPH*CEN-VSEG*CDBSEG) /VOLCITO) 

397! 1F (DTRNK. EQ. O) RTNSUB 

39d! IF (DTRNK.NE.U) GOSUJ UPDATE 

Hune m mi mu ms == 

4UU!<# CONSTRUCT ACCESS TRUNK 

401 ! A o o rs nn ee eee 

402!8AFT=AFT(1T6) 

403! EXECV 

404 ! PRNT 

405! PRNT 

406!PRNT THE AFT MOST POINT OF THE SONAR SPHERE IS LOCATED AT (&AFT] 


407! READ ( AFT MOST END OF THE ACCESS TRUNK WILL BE LOCATED AT =--> ) &AFT 


408! TG2[Ge] 

409 !' 8TGzTO 

410! ITGz[G-10 

411 !'TPECITO) 23 

4121 FWDCITO)xXI 

413! AFTCITO) zAAFT 

414! PDF(CCITG) 3PDACITG-1) 

415! PDACITG)2PDFCITO) 

Aló! LENCITG) sAFTCITO) -FWDCITO) 
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an 


` — w. жены 


„кешешнен 


417!GOSUB DRCYL 

418! Hı NSUY 

419! «Muti e dde e e o e d e e EEE U ER EEE 
420! «» UPDATE STATUS AND DISPLAY VARIABLES 
4211! <# *** k k * k f t kt k k k t kr k k k 60 k k k k k k k k K k k K K K K KOK 
422! * UPDATE 

4231<*U> 

424!SELECT MODE DRAW 

425!SELECT LAYER 200 
426!<8------------------------------ 


42/1<* UPDATE SEGMENT SUMMARY 


429! YL0C35-.31 25* ITG 

EU M a Zaun nn == 

431!<% ROUND OFF NUMBERS 
A s = ==-_ -— 

433!FWOCITG) =CAINTCCEWI OTTO) 4 Ob) elo) 710 
4341AFIC11G)=(AINT((AFT(ITG)+,O5)*10))⁄/10 

439 !'PDEF(ITG)=(AINT ((PDEFCITO)+.U5)*10))/1U0 

430! PDA (ITG)=(A INT ((PDACITG)+,09)*]10))/10 

43 /7°VOLCITG) S(AINTCCVOLCITG) 4.05) #10))710 

438! xXCH(ITG)=(AINT ((XCIB(1TG)+.,05)*)0))/10 

439! AFAOSFWDCITO) 

440! 43AFTSAFT(CITO) 

441  &^DFHDOsPDFCITO) 

442 !&8DAFTsPDA(CITGO) 

443! 4VOLSsVOL(CITO) 

444! A XCBS XCB(CITO) 

445! INSERT TEXT (4FWD) HGT.18/5 ЮЈТ: X3.30Y(YLOCI)«CHR? 
446! INSERT TEXT («4AFT)] H6T.1875 RJT: X5.30Y[YLOC]<CH> 
441]! INSERT TEXT (&DFWD] HGT.18/5 RJT* X/.30Y(YLOC] «CR» 
448! INSERT TEXT (&DAFT] HGT.18/5 HJT:* X9.30Y(YLOC] «CR» 
449! JNSERT TEXT (&VOL) HGT.1875 RJT* XII1.5YCYLOC]«CR» ` 
450! INSERT TEXT (&XCB] HGT.1875 RIT: XI3.3YCYLOC] <CR> 
4911<7------------------------------ 

452! <ж UPDATE DESIGN SUMMANHY 

453! <%---------------------------- == 

454! PVOL=PVOL+(AINT(VOL(1TG)*10))/10 

4551 RVOLSTVOL-PVOL 

450! IF (RVOL.LT.0) NFLG=1] 

457! IF (NFLOG,.EQ.1) RVOLSABS(CRVOL ) 

458!&PVOLsPVOL 

459 1 4RVOLxRVOL 

400! M0OMENTSMOMENT *VOL C ITO) * XCHCITO) 

461! LCBzMOMENT/PVOL 

462!LCU=(AINT((LCB+.05)*10))/1U 

463!1F (TPE(ITG).E0.5) RTNSUB 

464 1x1 CH=LCB 

4651 DELETE ENTITY* X20.25Y7.68 /5 «CH» 

466! INSERT TEXT (4PVOLJ HGI.18/5 RJT8* X20.25Y7.63/5<CH> 
40/IDELETE ENTITY* X20.25Y7.37><CH> 

4681 INSEHT TEXT [24RVOLJ HGT.18/5 RJT: X20.25Y7.3 /5<CH> 
404! IF (NFLG.EO.!) EMO LAYER INCLUDE 205 

4/0t IF (NFLG.EQ.OI ECHO LAYER EXCLUDE 205 

4/1 !IDELETE ENTITY: X20.25Y6. 15 «CH» 

4/211NSEHT TEXT (&LCB) HGT.1d/5 RIT? X20. 25Y6. /5<CR> 
4/31 IF (NFLG.EQ.1) RVOL=-RVOL 

4/41 1F (NFLG.EQ.1) NFLG=0 

4/5ISELECT MODE MODEL 

47Jo! SELECT LAYER 2 
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4/1'<*U> 

4 /3! RTNSUB 

4 /[Y! cHummanaauana an nr a a a A a a a a a a a 
430!<4 PRESSURE HULL EDIT SU3HOUTINE 
IZ Chun rar RER RR RR EA KR RE 
492! EDIT 

ESSE ML e me arena nn == 
434!<# DELETE PRESSURE HULL SEGMENT 
435 ! €# --=-- nn. 2 iiM rw nr eee = == 
336 ! P4 NT 

48 1! PRNT 

483! PRNT 

489 ! REA!) (SEGMENT TO BE DELETED IS ==>) £&ITG 
490 !MAXTG= [G 

491! 1TG=4 ITG 

492! TOZITG*10 

493! 4TO-2TGO 

494! «^U» 

495!DELETE ENTITY: TAG(4&IG)<CR> 

490! XDELz (t Fwi)t ITG) *AFTCITGO20)/72. 

49 /*YDEL=5 

498!'DELETE ENTITY’ X(XMELJYCYDELIJ<Ck> 
499! REPAINT 

50U ! SELECT MONE DRAW 

501!SELECT LAYER 200 

502! YLOC=3-.3125* 1 TG 

SOJDELETE ENTITY: X3.30Y[YLOC]I<CH> 
504 !' DELETE ENTITY: X5.30YLt YLOC]) <CH> 
505!DELETE ENTITY: X7.3U0Yl YLOC) «CH» 
S506! Ot:LETE ENTITY: X9.30YEYLOC ) «CHR» 
307t!DELETE ENTITY: XII. 5YLYLOCI])«CH» 
50d!Ut5LETE ENTITY: X13.3YLb YLOC ) «Cq» 


БО 


510!<x* UPDATE SUMMARIES 

> on oo men 

512! PVOLzPVOL-VOL C ITO) 

513! RVOL=TVOL-=PVOL 

514! I^ (AYOL.LT.0) NELG=1 

515! 1F (NFLG.E0.1) RVOL=ABS(RVOL) 

516!2 PVOL=PVOL 

51 /1X4RVOL=RVOL 

513! МОМЕМТаМОМЕМТ-УОЦ(ІТО) «ХСВ(1Т0) 

519! LCRMOMENT/PVOL 

520! LCBz=(AINT((LCB+.05)*10))/10 

521 t&LCBzLCB 

522! DELETE ENTITY: X20.25Y /.68 15 «CH» 

523! INSERT TEXT (&PVOLI HGT.18/5 HJTs: X20.25Y7.0875«CH» 
524! DELETE ENTITY: X20.25Y/.3/5«Cu» 

525! [NS3bEHT TEXT (&RVOL] HGT.18/5 RIT? X20.25Y7.3/5<Chk> 
526! [F (NFLG.EQ.I)I ECHO LAYER INCLUDE 205 

5211 IF (NFLG.E0.0) ECHO LAYER EXCLUDE 205 

528!)0ELETE ENTITY: X2U.25Y0. 75<CR> 

529! INSERT TEXT f4LCBJ] HG[.1875 RJTs X20.25Y6. /5<Ch> 
53U! IF (NFLG.EQ.1) HVOL=-RVOL 

531! 1F (NFLG.EQ.I) МЕА Озо 

532! POF( ITG) =0 

533! PDACITO) 20 

5341 FWD(CITO) zO 

535! AFTCITGO) xO 

536! VOLCITG) x0 
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53/1 XCB(1TG)=0 
538! LENCITOG) =U 


5391 <ж---------------------------- -- 


540!«4 REPLACE DELETED SEGMENT 


54114<н---------------------------- — 


5425 ЕГЕСТ MODE MODEL 
243!SELECT LAYER 2 
544!<*U> 

545!EXECV 

546! «МЕМУ2 

54 7 !'PRNT 


S48 !PRNT SELECT FORM OF PRESSURE HULL SEGMENT 

549 !PRNT 1-CYLINDER 2-CONICAL SEGMENT 3-FLAT PLATE CLOSURE 
590! PRNT 4-SPHERÍCAL CLOSURE 5-ELLIPTICAL CLOSURE 6-SONAR AND ACCESS TRUNK 
55] *tHEAD (7-0BTAIN DIAMETER H-RETURN MALIN MENU X-LEAVE -->) &TYPE 


552: [F 
Bootle 
554! IF 
555: [IF 
o 
55 /! IF 
558! IF 
5591 IF 


(&TYPE. EQ. "1") 
(ATYPE.EQ. ¥2") 
(&TYPE.FO. #3%) 
(&TYPR.EQ."4") 
(&TYPE, EQ. ñb) 
(STYPE.EQ."6") 
(4TYPE. EQ, "7") 
(ATYPE, EQ, "X" ) 


GOSUB 
GOSUB 
GOSUB 
GOSUB 
60504 
GOSUB 
GOSUB 
GOSUB 


CYLIN 
CONE 
PLATE 
SPHI 
ELLIP 
SONAR 
GETR 
STP 


5ӘОЗТРЕ(ІТО) аш ТҮРЕ 

501 !TG=MA XTG-1 

502! RINSUB 

56 3 ! « 4 tse de e de de de e eoe de e oe de eoe de e e e e de e e e o de 

564! «t$ PLOT HARD COPY 

565 ! <; w w t kk k ft k k kk k k k k k k k ea a K 
566! * PLT 

5611 PRNT 

5009! PRNT 

569! PRNT PLOT ROUTINE 

S IO!READ (DO YOU WISH TO PLOT DRAWING AS IS? ==>) &TYPE 
Б/Е Е (ATYPE. EQ. "Y") PLOT DOT SCALE .5 
542! EXECV 

513! PRNT 

574!HEAD (DO YOU WISH TO PLOT ISOMETRIC VIEN? —>) &TYPE 
5/5! 1F (XTYPE.E0."Y*) 066508 РГТІ5О 

576! HTNSUH 

5111 <н---------------------------- -- 

5491<” РГ1150 
5/91<Я------------------------------ 
SdO!#PL[1S0 

SdI!ECHO LAYE} EXCLUDE 20U 

5g2! UNBLANK VIEW NAME 71507 

бБӚЗІРГОТ ПОТ SCALE .5 

SUA!BLANK VIEW NAME 71507 

585! ECHO LAYER [INCLUDE 200 

586! RTNSUB 
PDCRARAEZIZSSEIZZIIEIIEZIZEIIEZIZIZSZRZRRARERAERL! 
58d!«4 DETEHMINE DIAMETEH AT GIVEN LOCATION 
PISEARAEIIZIZIZIIIEILIIZISIIZIZZRIERZRIRRRIRI 
590! #GETR 

591! EXECV 

592! PRNT 

SY3!PRNI 

5094 ! PRNT 

SO5B!READ (LOCATION AT WHICH DIAMETER IS REQUIRED -=> ) XL 
5961G0SUB DRAD 


КЄ 





$ 4c — 


59 /! PRNT 

598! PNT 

599! PHNT 

600! PRNÜ ENVELOPE DÍAMETEH AT (XL) IS (2*HRAD1] FEET 
0U1!]a) 

602! EPEAT 

603! 1=1 +1 

604 !' UNTIL (1.Е0.600) 

605! HTNSUB 


60/1! «&CALCULATE RADIUS 
09Ә3!<Я%---------------------------- -- 
609! *DHAD 

610! IF (XL.LE.LF) GOTO FRONT 

611! IF (XL.GT. (LOA-LA)) GOTO AFT 

612!IF CXL.GT.LF. AND. XL. LE. (GLOA-LA)). HADIS RAD 
O1 3! RTNSUB 

614! *FHONT 

60151! YXzLF -XL 

616! RADI=RAD*(1-( XX/LF)**NF)**(1/NF) 
617! RTNSUB 

біз! АЕТ 

619! XX=XL-(LOA-LA ) 

6201 RADISHAD* CI - CXX/LA) **NA) 

621 !HINSUB 

622! <# t esie de she e ien de le e ce e ce de e de U ER RE Kk U 
623! «$ CHECK FOR EXCESSIVE RADIUS 

824і <Әжкииктжйтккжкеижкикжкехжейежйежйшіжй 
625! CHECK 

626! XL=FwW1)( 1TG) 

02 711 GOSUB DHAI) 

6238!11F (¿AD]I GE. (PDF(1TG6)/2)) EPHI=0 
629! 1F CRADI.LT. CPDFCITG)/2)) ERRI =) 
6301! XLsAFTCITG) 

O31! G0SUH  DHAD 

632!11F (nADI.CE. (PDALITGIZ/2)) ERR2=U 
633! 1F CHADI.LT- CPDACITO)/2)0) ERH251 
634!1F  (CERHI.EQ.O. AND. ERR2.EQ.O) RTNSUB 
635! PHNT 

630! PRNT 

63 /! PRNT 

638!PHNT 

63911F (EHRI.EQ.1) PRNT ***EHHOH*** FORWAHD DIAMETER EXCEEDS ENVELOPE 
040! 1F (ERH2.EQ. 1) PRNT **x*EHRHROH*** АЕТ DIAMETER EXCEEDS ENVELOPE 
641 1! 4A1NSUHB 
ЭСГРАКТ252525555555222252352222555555%4) 
6431 «*» EXIT MIT.PHULL 

6 44! <# dede de ie che deci de oie dece e e cle e de eoe de in de oe dn d n d a KF 
642! «END 

646! PH NT 

647!PRNT 

643!1HEAO (DO YOU WISH TO MAKE A COPY OF [Ht DRAWING? ) &TYPE 
$49! IF (&TYPE.EQ.*¥") GOSUB PLT 

05! <и------------------------------ 
651!<# SAVE DATA 

о0921<т--------- ------------- un nn 
6531 "SAVE 

034! EXECV 

6551! PANT 

690 !PRNT 
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657!PHNT ` 

653!'PHNT SAVING PRESSURE HULL DATA... 
659! 0PENN | ,"MIT.PASSFWD" 

600! OPEN4 2,.*"M[T. PASSAr']" 

5611! 0PENW. 3,"MIT.PASSDEWD" 

602!0PENW 4,."MIT.PASSDAFT" 

663! OPENW 5,"MIT.PASSVOL" 

664! OPENW oO, "MIT.PASSXCB^" 

665! OPENA  /."MIT.PHDATA" 

5666!0PENW 3,"MIT.PASSTYPE" 

8644 ігі 

^68! REPEAT 

609!  &TYPEsFWDCI) 

6/0! WHITEF I TYPE 

6/1! &TYPESAFT(I) 

6/2! WHRITEF 2.8TYPE 

6/3! &ТҮРЕ=РПЕ(1) 

6/4! WRITEF 3,8TYPE 

675! 8TYPE=PDA(]) 

6lo!  "HITEF 4,.4TYPE 

611! 8TYPE=VOL(1) 

6/3! WRITEF 5.8TYPE 

6/9! «ТҮРЕ-ХСЗЯ(1) 

озо! WHITEF 0,8TYPE 

661!  ATYPESTPE(CITO) 

682! WHITEF B,8TYPE 

633! [sie] 

6S4!UNTIL (1.GT.20) 

085! 8 TYPE=TG 

656!WHITEF 7/.8TYPE 

687!ATYPEZTVOL 

688 !WHITEF /,.&TYPE 

089 !2TYPE=HE5 

690!WHITEF /.&4TYPE 

691! &TYPEsPVOL 

692!WKITEF /.«4TYPE 

693! 4TYPEsHRVOL 

694! NHITEF 7,«4TYPE 

695!41TYPE=LCB 

696!WHITEF 7,.&4TYPE 

69 /! <g——————-————— n ¬ — 
09Y59!<%4% DETERMINE NEXT ACTION 

699! т-а 
700! ЕХЕСУ 

/OV!PHNT 

1021! PHNT 

7103! PRNT 

(04! READ (DO YOU WISH fO ADD APPENDAGES AT THIS TIME? ) &TYPE 
7105! IF C&TYPE. EQ. "Y") HUN NEW MIT.SAILI 
/06! END 
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MIT. 8BCD.SAIL! 
5- 1-84 113398594 FUTIL 0.21 


ЕКЕ:225252252552222222222525%55254) 
2!<c# MIT.SAILI 
33 «fiiio dede de dede de dede d dede d e d к 
4! «s 
5!«» GENERATES DRAWING OF SAIL 
61«» PREPARES FOR ENTRY TO BALANCE 
71<" 
USARA RA RARA ARA RARA de de d n den 
9101м 5Х(224),5Ү(29),52(29) 
IOIDIM AFT(20),FIiiN(20) ¿PDA (20) ¿PDF ( 2U) ¿LEN( 20) ,VOL(20),¿XCB(20U) 
11201M TPE(20) 
PAETEIZIZIZIEIIZELZZIIERZRRIRESIERIRII 
13! «* OBTAIN DATA FROM MIT.PASSPHI 
| 4 1 « 9 trieste deco fece e e f e nde e e KK 
IS! EXECV 
I6! PRNT 
| /! PRNT 
Id! PRNT 
I9!PRNT OBTAINING DATA FHOM PASS FILES... 
20! 0PENR 1,*MIT.PASSPHI* 
21! READF 1,4 TYPE 
22'DIAM-2TYPE 
23! НЕАОЕ 1 .& ТҮРЕ 
24!L0A=&TYPE 
25! READF 1.4 TYPE 
26!LF=3TYPE 
2/1 READF 1,8TYPE 
28 ! LAzATYPE 
291HEADF 1, 4TYPE 
3O!READF 1,4 [YPE 
JI !'READF T.&TYPE 
32!READF l,.&4IYPE 


33! NFx4TYPE 

34!READF 1,4TYPE 

J5!NAsATYPE 

36! RAD=DIAM/2 

O -22---2---..............- = 

38!«4 LOCATE SAIL 

391«4 ------——-------—-—-————————————— == 

40 !PRNT 

41! PRNT 

42!PRNT 


43! READ (FOHWARI) EDGE OF SAIL IS LOCATED AT—> ) SFD 
441!G0SUM SAIL 

49!GOTO ENI) 
"ТӘЗЕТ55255355555353523325335352533324 
47!<# DRAW SAIL 

AG! CH Aa ee a a a n f de e dene 
49!5АП, 

5U!SELECT MONE MODEL 

SI IPRNT 

52!PRNT 

ӛЗІРНМТ 

54 1PHNT OBTAINING SAIL OFFSETS... 
551«^U» 

561 OPENR. | ,"MIT.SAIL" 
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5]! <4 ==— === e =ч <= =ч чч = — 
58!<%* READ OFFSETS 
bQ! <# ann ann non -- 
OU!HEADF 1,8TYPE 
61! SLENs&TYPE 
62!HEADF I.&TYPE 
63! НТ=&ТҮРЕ 
64! [21 
О5!НЕРЕАТ 
50!  —READF 1.4 TXT 
67!  S3XXsa4TXT 
64! 5Х(1)-5ХХ%5ҒО 
69! НЕАПОҒ 1.8ТХТ 
1U! an 15 


71!  Iz1*l 

123UNTIL (I. EQ. 29) 
/31<й---------------------------. -- 
141<% DETERMINE INTERSECTION POINTS 
(51<4---------------------------- -- 
/611=1 

TTIREPEAT 


(Зі XL=SX(1) 
79! GOSUB DRAD 
80! SH=RADI 
81! SY(I1)=SQRT(SR**2-SZ(I1)**2) 
82! 1=]+1 
33!'UNTIL (I.EQ.29) 
BAl<c#==---2222222 222222202 - 22020020 E 
B5!<# DRAW CURVE OF INTERSECTION 
501<%---------------------------- -- 
ӘЛ Ізі 
aa! TTGs90 
SY'STG=TIC. 
QOrSELECT LAYER 5 
QI!INSERT BSPLINE INTR TAG=[4&TG] 3 <# 
92ІМІМСА Х(5Х(1)1Ү(5Ү(1)171527(1)1,<% 
9311=1+1 
Q4! IF t1.LE.283)I GOTO INCA 
95!<CH> 
96! ізі 
9/1 TTG=92 
98!8TG=TTG 
99! INSERT BSPLINE INTR TAG=[4TG]3<» 
10V! #INCT XESXTII IYESYEDI IZI-SZC HI I, <H 
101! Il=]1+1 ў 
102 1F (1.LE.23) GOTO INCC 
103! «CH» 
UU cu eee dmm mima ep ro L... == 
105! <% DRAN UPPER BOUNDARY 
106! <%---------------------------- -- 
107! 1=1 
106! ТТСба9 1 
109 !&TG=TTG 
PIULYT#RAD+HT 
VITLINSERT BSPLINE INTR TAG2(&TG)]3<# 
11214 1NCB X[SX(1) IY[YTIZISZ(1)),<A 
1131 ]= +1 
114!I1F (1.LE.28) GOTO INCB 
1151 <CH> 
116! 1з] 
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11/1TTG=9 3 

118!2TG=TTG 

1191 INSERT BSPLINE INTH TAGz[( A410]! «s 

120! /INCD X(SXCI) )9YCYT1ZCU-SZ(C 1) ), «* 

1211 1=[+) 

122! IF CI.LE.268) GOTO INCI 

123! «CR» 

IDEE e nmm = 
125!<# INSERT SURFACE 
l26!14«9$--———————————————————————-—— == 

12 [14 TG=9U 

123!3T61=91 

129! I[NSERT RSURFACE MESH^5X60* TAGI&TGI,.TAG(STGOI ) «CQ» 
139! à3TGz92 

131!4TGI393 

132! INSERT RSURFACE MESHOX5* TAGÍSTGJ,TAG( 4TGI ) «CH» 
133! «^U» 

134 ! RTNSUB 

| 35 ! «9 tette ER RU e dede e de e de deo É K 
130!<4 DETERMINE RADIUS AT GIVEN LOCATION 
ІЗ/! <Ежжжейкежкжижже жек же ж RARA AA RARRAR RE 
132! ӨОНАП 

139: 1F (XL.LE.LF) GOTO FRONT 

140: 1F (XL.GT.(LOA-LA)) GOTO AFT 

I4l! IF (XL.GCT-. LF. AND. XL.LE. (LOA-LA2) RADI RAD 
142! RINSUB 

143! #FRONT 

1 44! XXsLF- XL 

145! HADI S4AD*CI1-CXX/LF) * NF) **CIZNF) 

146! RTNSUU 

147! 4AFT 

143! XX=XL=(LOA=LA) 

|49!4qAD1=zRAD=*(1—( XX/LA)**NA) 

15U!RTNSUB 

IO] <4re RARA 2 2 2 2 2 2 2 272 2 2 2 2 2 2 2 2 2 2 2 2 2; 
152!<# PLOT HAHN COPY 

]53!<# waww x t dede dede de ire dee eh e e OK a a a a a 

154! #PLT 

155! PRNT 

156 !PHNT 

15/! PRNT PLOT ROUTINE 

158! READ (DO YOU WISH TO PLOT DRAWING AS I3? ==>) RANS 
159! IF (&ANS.EFQ."Y") PLOT DOT SCALE .5 
І6О!ЕХЕСУ 

161 !PRNT | 

1621 READ (DO YOU WISH TO PLOT. ISOMETRIC VIEW? ==>) ААМ 
1603! IF (&ANS. EQ. "Y") GOSUB PLTISO 

164! HTNSUB 

|95! <%------------------------------ 
166!<# PLTISO 
16/!<4---------------------------- -- 

169! *PLTISO 

I69LECHQ LAYER EXCLUDE 200 

I 7TU!UNBLANK VIER NAME 71504 

ІМІЗРІОТ DOT SCALE .5 

| /2!RTNSUB 

| 43 « 9 toti dehet a a a a a 
174t<w CHANGE MESH 

1 75! яажа такия ежка жаттата татажа ааа 


1 16: #СІЕАН 


ES 





І 7/1 <0------------- AP €—9 À  — =- 
Iı7ö!c# RETRIEVE PRESSURE HULL DATA 

1 19! <---------------------------. == 

130 ?+PHNT 

ІЗГІРЕМТ 

ІЗ2ІРНМІ 

193!/PRNT RETRIEVING PRESSURE HULL DATA 
1541 <^0> 

152! 0РЕМК 1,“MIT. PASSEND” 

186! ОРЕМЧ 2, "МІТ. РАЅЅАЕТ" 

І /' ОРЕМН 7, “МІТ. РН)АТА" 

199! ]=] 

189! REPEAT 

190! —READF 1,8TYPE 

191! FwD(I)=&TYPE 

192! READE 2,«TYPE 

193! AFT(1)=A4TYPE 

194! [=[ +! 

I95!UNTIL (I.GT.20) 

I96! HEADF 7,8TYPE 

19/!ТОМ-«ТҮРЕ 

198! TG=11 

) 99 ! REPEAT 

200! ITG=f[G-10 

201! Хіз(ҒИЮХ(ІТОЭФАЕТ(1Г0))/2 

202! Yı=z) 

203! CHANGE SGRAPHICS MESHIX2 3 ХІХІҮҮТТҮІ І<СН> 
204! TG=Tötl 

205!UNTIL (TG.GT.TGM) 

290! <я---------------------------- — 
201!<w SAIL MESH 

290! <%--------------------------- os 
2U9!CHANGE SGHAPHICS MESH 1X2 * X(SFD*SLEN/2)Y(HAD*HI/2] 
210! CHANGE SGRAPHICS MESH 1X2 3 XLSFD+SLEN/2)IYLRAN+HT/2] 
211!«^U» 

2| 2! HTNSUB 
PEAMIETEZIIZILIIIIIIZEZIIIIIIIRIRRIRIIEL. 
214!1<w* EXIT MIT.SAILI 

2 1 5 ! « f iride eec de e dece che oe e c oe cde fe e ol n cr c de c n n e d n 
216! #END 

211! ЕХЕСУ 

213!PRNT 

2191 PRNT і 

220! HEAD (DO YOU WISH TO MAKE A COPY OF THE DRAWING? ) &ANS 
221! IF (&ANS. EQ. "Y") GOSUB PLT 

2221EXECV 

2231 PHNT 

1224 1 PHNT 

225! PRNT 

226!HEAD (DO YOU WISH TO CONTINUE TO BALANCE? ) &ANS 
22/1! IF (&ANS,EQ."Y") GOSUB CLEAR 

228! IF (&ANS.EQ."Y") HUN NEW MIT.BALANCE 
229! END 
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APPENDIX III 


PROGRAM FLOWCHARTS 
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MIT.FORMC 


Used to set up 
drawing format 


Activate part MIT. SUB. FORMAT 
Activate drawing FORMC 





Set up data displays 










Pressure Hull Design Summary 
Detailed Segment Information 
Principal Characteristics 


Create Form Part and file 
as MIT.SUB.FORMAT DRAW FORMC 
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MIT.ENV 


Generates views and graphic 
display of outer envelope 








Obtain offsets from 
data file MIT.POINTS 


Obtain principal characteristics 
from data file MIT.PASSPH1 





Select scale factor 
based on LOA 


Activate part MIT. SUBDRA 
Activate drawing FORMAT 
Define views 


Draw horizontal and 
vertical scales 


Construct envelope profile 


Rotate profile to obtain 
surface of revolution 


Display principal characteristics 


Execute MIT.PHULL 
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MIT.PHULL 


Create 3D representation of pressure hull, 
calculate and display various parameters 





Obtain the following from MIT.PASSPH1: 
Diameter 
Length overall 
Forebody length 
Afterbody length 
Forebody fullness coefficient 
Afterbody fullness coefficient 


Obtain the following from MIT.PASSPH2: 
A weight 


Determine amount of A weight 
to be reserved 


Display initial values 
in Design Summary area 


Select option from main menu 
1-Cylinder 
2-Conical segment 
5-Flat plate closure 
4-Spherical closure 
S-Elliptical closure 
6-Sonar and access trunk 
7-Diameter at any location 
E-Edit pressure hull 
X-Leave MIT.PHULL 





Cylindrical Segment 


Obtain the following data: 
Forward most point of segment 


Aft most point of segment 
Diameter of cylinder 





Draw cylinder 


Calculate volume and 
center of buoyancy 
Update data displays 


Return to main menu 
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Conical Segment 


Obtain the following data: 
Forward most point of segment 
Aft most point of segment 
Diameter at forward most point 
Diameter at aft most point 


Draw conical segment 







Calculate volume and 
center of buoyancy 










Update data displays 


Return to main menu 


82 





Flat plate closure 


Obtain location and E 
of flat plate closure 


Draw flat plate closure 








Update data displays 





Return to main menu 





Spherical end closure 





Determine method of data input: 
1-Explicit input of endpoints 
2-Calculate inputs from volume 


Calculate endpoints 
from volume 


Obtain the following: 
Required volume 
Location of base 

Diameter of base 










Explicit input 






Obtain the following: 
Forward most point 
Aft most point 
Forward diameter 
Aft diameter 










Calculate segment length 
and determine points to 
piot geometry 






Draw spherical end closure 


Calculate volume and 
center of buoyancy 
Update data displays 








Elliptical end closure 


Obtain the following data: 
Forward most point of segment 
Aft most point of segment 
Diameter at forward most poin 
Diameter at aft most point 






Draw elliptical end closure 


Calculate volume and 
center of buoyancy 


Update data display 


Return to main menu 
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Sonar and access trunk 


Obtain the following data: 
Diameter of sonar sphere 
Diameter of access trunk 

Center of sonar sphere 







Draw sonar sphere 


Calculate sonar volume and 
center of buoyancy 


Update data display 


Display location of aftmost point 
of sonar sphere and obtain the 
aftmost location of access trunk 


Draw cylindrical access trunk 
Calculate volume and 
center of buoyancy 


Update data dısplay 
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Edit pressure hull 








Determine segment to be deleted 
| Delete graphic display of segment 


Make corrections to remaining volume 
and pressure hull center of buoyancy 


Delete data pertaining to deleted 
segment and update data display 


Select new segment form 


Go to appropriate subroutine 
for new segment 


Return to main menu 
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Exit MIT.PHULL 


Provide opportunity to plot drawing 






Save data in the following data files: 
MIT.PASSFWD: forward most points of segments 
MIT.PASSAFT: aftmost points of segments 
MIT.PASSDFWD: forward diameters 
MIT.PASSDAFT: aft diameters 
MIT.PASSVOL: segment volumes 
MIT.PASSXCB: centers of buoyancy 
MIT.PHDATA: totals for pressure hull 










Execute MIT.SAILI 
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MIT.SAIL1 


Obtain the following data 
from MIT.PASSPHI: 

Diameter 

Length overall 

Forebody length 

Afterbody length 

Forebody fullness coefficient 

Afterbod 











Obtain location of forward 
edge of sail 


Obtain sail offsets 
from MIT.SAIL 


Determine points of intersection 
between sail and outer envelope 


Draw curve of intersection 
Draw sail upper boundary 


: |Draw connecting surface 
Provide opportunity to plot drawing 


Prepare to execute balance module 


fullness coefficient 





APPENDIX IV 


PROGRAM DATA FILES 
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DATA FILES USED BY GRAPHICS MODULES 


i. Files created by earlıer modules. 


MIT.POINTS: This data file is used in MIT.ENV to obtain 


the 132 offsets generated in the geometry 
module. 


MIT.PASSHi: Used by MIT.ENV,  MIT.PHULL, and MIT.SAIL1. 


This data file contains the following data 
concerning the envelope geometry: 


Diameter 

Length overall 

Length of forebody 

Length of afterbody 

Submerged center of buoyancy 
Submerged displacement 
Envelope displacement 
Forebody fullness coefficient 
Afterbody coefficient 


MIT.PASSPH2: This data file is used by MIT.PHULL to ob- 


tain the A weight and design name. 


2. Files created by graphics modules. 


сі. 


Data files are created in MIT.PHULL to save data 
describing the individual segments of the pressure 
hull as well as the total volume and center of 
buoyancy of the pressure hull. Within this module, 
all data concerning each segment is maintained in a 
series of one dimensional arrays. Prior to leaving 
the module this data is saved in a series of data 
files. 


MIT.PASSFWD: Contains locations of the forward most 
point of each segment. 


MIT.PASSAFT: Contains locations of the aftmost 
point of each segment. 


MIT.PASSDFWD: Contains diameter at the forward most 
point of each segment. 
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MIT.PASSDAFT: Contains the diameter at the aftmost 
point of each segment. 


MIT.PASSVOL: Volume of each pressure hull segment. 


MIT.PASSLCB: Location of center of buoyancy of each 
segment. 


MIT.PASSTYPE: Contains the type of each segment 
(cone, cylinder, etc.) 


MIT.PHDATA: Contains total volume and center of 
buoyancy of the pressure hull. 


b. Parts and drawings generated by graphics modules. 


MIT.SUB.FORMAT: This is the part used by MIT.FORMC 
to generate the Form Part drawing. 
MIT.SUB.FORMAT.FORMC is the name of 
the drawing. 


MIT.SUBDRA: This part is activated in MIT.ENV. It 
is used in all graphics modules. 


MIT.HULLOUT: Upon completion of CADSUB, the part 
MIT.SUBDRA is filed under this name. 
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APPENDIX V 


LAYER ASSIGNMENTS 





LAYER ASSIGNMENTS 


Through the use of layers one may remove from view 
parts of a design without totally eliminating them. This 
makes it possible to improve the clarity of the drawing 
and view only those elements of the design that are 
required at any time in the design process. 

The following layer assignments are used in  CADSUB 
graphics modules. 


Layer O: Border of drawing, horizontal and verti- 
cal scales. 


Layer 1: Outer envelope. 

Layer 2: Pressure hull. 

Layer 3: Sail. 

Layer 199: Principal characteristics data display. 


Layer 200: Data display areas for detailed seqment 
information and pressure hull design 
summary. 


Layer 205: Negative sign. This is included because 
of the undesirable effects observed in 
MIT.PHULL when attempting to convert a 
negative remaining volume to a text 
entity and including it in the data 
display. If this value is negative, a 
flag is set and the value is converted 
to a positive value. If, when written on 
the screen, the flag is set Layer 205 is 
included in the drawing. If the flag is 
not set Layer 205 1s excluded from view. 
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